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Continuamos en este número con el estudio de 
otro de los periféricos disponibles para tu Commo¬ 
dore, el Lápiz Optico, que intento encontrar sali¬ 
da en el diseño por ordenador, pero que no ha en¬ 
contrado la aceptación que se espera. Finalizando 
esta serie de artículos el mes que viene con las Ta¬ 
bletas Gráficas. 

Una introducción al C te puede ayudar a enten¬ 
der la versatilidad de los nuevos y potentes lengua¬ 
jes que permiten trabajar a nivel de bit, casi como 
el código máquina o simplemente trabajar a un ni¬ 
vel alto de programación, limitándonos a la utili¬ 
zación de las librerías o rutinas existentes para el 
lenguaje C. 

Damos importancia a este lenguaje, pues te per¬ 
mite una programación más estructurada; que a no¬ 
sotros, acostumbrados al BASIC, lenguaje desor¬ 
denado por naturaleza y que nos impide, entre 
otras, y como podréis ver en los juegos de ingenio 
la programación recursiva. Puede resultarnos muy 
útil comenzar nuestras andadas por un lenguaje que 
no dudamos que en poco tiempo acapare, respal¬ 
dado por el sistema operativo UNIX, el campo de 
programación en aplicaciones tanto empresariales 
como de diseño gráfico. 



Esta revista no mantiene relación de dependencia de ningún 
tipo con respecto de los fabricantes de ordenadores Commo¬ 
dore Business Machines ni de sus representantes. 
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Todavía puedes adquirir 
uno de los periféricos que 
dentro de poco tiempo ter¬ 
minarán cayendo en el olvi¬ 
do. En este artículo te ha¬ 
blamos de ellos y cuáles 
puedes encontrar para tu 
Commoaore. 
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GALERIA DE 
SOFTWARE 


Comentario de los juegos: 
Flash Gordon, Spiky Harold, 
Park Patrol, Speed King, 
Harvey Headbanger, Kiks- 
tart, Strongman, Starquake 
y 1985. 



LIBROS 



PROGRAMAS DE 
CONCURSO 


Terminamos este mes el 
listado del programa Esta¬ 
dística-Loto y premiamos a 
Odoric Benavent y Ana Ol¬ 
medo por su programa Loo¬ 
ping ball. 



Resolvemos el problema 
de las ocho damas que os 
planteamos el número ante¬ 
rior y enunciamos nuevos 
temas con el título «LOS 
AUTOMATAS QUE SE RE¬ 
PRODUCEN.» 


En el manejo de la impre¬ 
sora a través del ordenador, 
el octavo bit puede ayudar¬ 
te a resolver muchos proble¬ 
mas que te surjan, cuando 
estés trabajando en el 
modo estándar. 



¿TE INTERESA? 



CARTAS 



LENGUAJE C 


Comentamos uno de los 
lenguajes que actualmente 
está imponiéndose ante los 
otros, por su facilidad de 
aprendizaje y la posibilidad 
de trabajar en «alto y bajo 
nivel». 
































TECNICAE-87 

Del 4 al 8 de mayo de 1987, va a tener 
lugar en los locales de la Escuela Técnica Su¬ 
perior de Ingenieros de Caminos, Canales y 
Puertos de Madrid, «TECNICAE-87», I Sema¬ 
na de la Ingeniería Asistida por Computador, 
que va a llevarse a cabo bajo el patrocinio de 
los Ministerios de Educación y Ciencia e In¬ 
dustria y Energía, la Comunidad Autónoma de 
Madrid y el Rectorado de la Universidad Po¬ 
litécnica de Madrid. 

El objetivo de estas Jornadas es llevar al 
ámbito universitario una visión lo más com¬ 
pleta posible del estado actual y de las posi¬ 
bilidades de utilización que ofrecen los siste¬ 
mas de diseño por computador en el ámbito 
tecnológico, y al tiempo, servir de punto de 
encuentro entre los mundos de la Universidad 
y la Empresa. 

A lo largo de los cinco días de duración de 
«TECNICAE-87» tendrán lugar, simultánea¬ 
mente, las siguientes actividades. 

— Un Curso de Iniciación al Diseño Asisti¬ 
do por Computador, dirigido a aquellas per¬ 
sonas interesadas en conocer los principios y 
alcance de los sistemos CAD/CAM, que se de¬ 
sarrollará a lo largo de las mañanas de los 
días 4, 5, 6 y 7 de mayo de 1987. 

El Simposium, que lleva el nombre genéri¬ 
co de AREC.DA0'87, tiene la vocación de ce¬ 
lebrarse cada año, y quiere ser una iniciativa 
que reúna arquitectos, ingenieros, diseñado¬ 
res, informáticos e investigadores, con objeto 
de fomentar el indispensable diálogo entre to¬ 
dos ellos. 

El Simposium se estructurará sobre la base 
de ponencias o comunicaciones escritas que se¬ 


rán presentadas a los asistentes, así como 
publicadas. 

ARED.DAO '87 pretende especialmente ¡m-‘ 
pulsar los siguientes temas: 

1. Proceso de diseño en la arquitectura y 
en la construcción: metodología. 

2. Bases de datos alfanuméricos y gráficos. 

3. Representación gráfica: algoritmos, nor¬ 
malización , etcétera. 

4. Sistemas integrados. 

Para cualquier consulta, ampliación de la in¬ 
formación o inscripciones, los interesados pue¬ 
den dirigirse al ITEC, Instituto de Tecnología 
de la Construcción de Cataluña, U Bon Pas¬ 
tor, 5, 4.°. Tel.: 209 60 99. 08021 Bar¬ 
celona (España). 

— Una serie de Jornadas Sectoriales sobre 
Ingeniería Asistida por Computador (CAE), que 
se celebrarán durante las tardes de los días 
4, 5, 6 y 7 de mayo de 1987, en sesiones 
paralelas. 

- Una Jornada sobre la Función de la Uni¬ 
versidad en la implantación y transmisión de 
las tecnologías CAE, que tendrá lugar a lo lar¬ 
go de la mañana del día 8 de mayo de 1987. 

— Una Jornada sobre la Función de las Dis¬ 
tintas Administraciones en la Transmisión de 
las Tecnologías CAE, que se celebrará en la 
tarde del 8 de mayo de 1987. 

— Asimismo, y simultáneamente con el de¬ 
sarrollo de los actos que se acaban de seña¬ 
lar, se celebrará una Exposición que se aca¬ 
ban de señalar, se celebrará una Exposición 
en la que estarán presentes una serie de em¬ 
presas privadas y organismos públicos intere¬ 
sados en mostrar sus realizaciones en mate¬ 
rial informático para ingeniería y arquitectura 
asistida por computador. 


El «Supermicros 86» 
para la impresora Láser 
Canon LBP-8 

El pasado día 26 de febrero, en el hotel Eu- 
robuilding de Madrid, la revista Micros hizo 
la entrega a los representantes de Canon Es¬ 
paña, S. A., de su trofeo anual «Supermi¬ 
cros», concedido en su versión 86 a la im¬ 
presora Láser Canon LBP-8, en la categoría 
de «periferia de impresión». 

Con este modelo, Canon se interna en el 
campo de la tecnología láser aplicada a la in¬ 
formática, en el cual Canon es el líder 
indiscutible. 

Este premio es el reconocimiento de la pren¬ 
sa especializada a la constante preocupación 
de Canon por abrir nuevos caminos en el mer¬ 
cado español, dando entrada a los modelos 
más avanzados a nivel mundial. Una vez 
más... Enhorabuena, Canon. 



2. a Jornada 
de Informática 
en los Servicios 
de Anestesia 
y Reanimación 

Día: 20 de junio de 1987. 

Lugar: Aula Serés. 

Fundación Puigvert. 

íl Cartagena, 340. 

08025 Barcelona. 

Telf. 235 56 14. 

Precio de la inscripción: 5.000 pías. (con. 
almuerzo incluido). 

Organizado por la Fundación Puigvert en co¬ 
laboración con la Sección de Informática de la 
Sociedad Española de Anestesiología y Rea¬ 
nimación. 
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Caja de seguridad 
para discos 

Advantek International Limited, de Hong 
Kong, ha lanzado al mercado una caja fuer¬ 
te, con cerradura y a prueba de incendio, lla¬ 
mada «Disksafe». Está hecha con un metal 
que, además de proteger su contenido del fue¬ 
go, reduce el riesgo de que el disco o cinta 
queden perjudicados por cualquier campo 
magnético presente. 

Su diseño es bastante atractivo y no ocupa 
demasiado espacio, puesto que mide 
210x190x350 cm. Su capacidad es de 80 
discos de cualquier tamaño y aún queda es¬ 
pacio libre para cintas. 

Otra novedad de esta empresa es el orde¬ 


nador para los deportistas. 

El Sports Computer es un aparato moder¬ 
no, diseñado para las personas que quieren 
ponerse en forma. Se trata de una máquina 
muy sencilla que mide el ritmo de velocidad, 
proporciona un nuevo aliciente al deporte y vi¬ 
gila la salud del usuario controlando su pul¬ 
so. Se han diseñado varias versiones del 
Sports Computer, para varios deportes espe¬ 
cíficos, tales como bicicleta fija, remo, ¡og- 
ging y esquí y puede adaptarse a cualquier 
tipo de actividad. Hay varios modelos de 
Sports Computer en el mercado, poseyendo 
esencialmente las mismas características. Para 
obtener más información, dirigirse a: 

Hong Kong Trade Developement Council 
Balmes, 184. 

08006 Barcelona. 


ARECDAO 87 

ARECDAO '87 

I Simposium Internacional sobre Diseño 
Asistido por Ordenador en Arquitectura e In¬ 
geniería Civil. 

1-3 de abril de 1987, Barcelona (España). 

Organizado por el ITEC, Instituto de Tecno¬ 
logía de la Construcción de Cataluña y patro¬ 
cinado por el MOPU-Ministerio de Obras Pú¬ 
blicas y urbanismo, en el marco de C0NSTRU- 
MAT-87, se celebrará en Barcelona del día 1 
al 3 de abril de 1987, AREC.DAO'87,1 Sim¬ 
posium Internacional sobre Diseño Asistido por 
Ordenador en la Arquitectura e Ingeniería Ci¬ 
vil. La inauguración será a cargo del Excmo. 
Sr. Don Javier Luis Sanz Cosculluela, ministro 
de Obras Públicas y Urbanismo. 



Protege tu Commodore con esta 

Una oferto especial y exclusivo 
poro nuestros lectores 


Una practica funda lavable y resistente, que protegerá del polvo 
y de otros deterioros a tu COMMODORE. 
jY que por ser una oferta exclusiva para nuestros lectores puedes 
conseguirla con un 25 % de descuento sobre su precio real, 
de venta! 

■¡Apresúrate! Recorta y envía HOY MISMO 
este cupón a: 

COMMODORE MAGAZINE (FUNDAS) 

Bravo Murillo, 377 - 28020-MADRID 


Las existencias son limitadas 
¡No te quedes sin ella! 























Lápices 

ópticos 

Entre los Periféricos conectables a los port de juego, 
podemos encontrar Joysticks, Ratones, Tabletas gráficas 
y Lápices ópticos entre otros. Estos últimos van a ser 
objeto de estudio en este artículo para que puedas llegar 
a conocerlos y comprenderlos mejor. 
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E I lápiz óptico es un periféri¬ 
co que nos permite introducir da¬ 
tos en el ordenador. El hardwa¬ 
re consiste en un dispositivo con 
forma de lapicero que está uni¬ 
do al ordenador por un cable co¬ 


nectado al port de juego. 

La manera de utilizar este la¬ 
picero depende del software que 
le acompañe, pero podemos de¬ 
cir que la mecánica de uso está 
en acercar éste al televisor o mo- 


tico actuaría como el elemento 
que dibuja. 

La aplicación más usual de 
los lapiceros ópticos es en los 
programas de proceso de gráfi¬ 
cos, donde resulta más simple 
apuntar mediante el lápiz óptico 
a una zona de la pantalla donde 
queremos actuar, a esperar que 
llegue el cursor activado por un 
joystick o un ratón. 


FUNCIONAMIENTO 

El funcionamiento de un lápiz 
óptico es muy simple: 

Conozcamos primero cómo 
aparecen las imágenes en la 
pantalla de un televisor, para lue¬ 
go poder analizar el funciona¬ 
miento de los lapiceros ópticos. 

La imagen en pantalla del mo¬ 
nitor se forma a partir del barri¬ 
do de un haz de electrones que 
impresiona la capa fluorescente 
depositada en el interior del tu¬ 
bo de pantalla. El haz se despla¬ 


nitor y seleccionar en pantalla 
las opciones que deseas elegir. 
En el caso de utilizar un progra¬ 
ma de dibujo, la pantalla simula¬ 
ría la hoja de papel y el lápiz óp- 


za en un movimiento horizontal 
de izquierda a derecha desde la 
esquina superior izquierda, has¬ 
ta la esquina inferior derecha, 
siendo el número de líneas hori¬ 
zontales que impresiona este 
haz en una televisión de 625, 
imagen de las 200 líneas de re¬ 
solución que envía nuestro Com- 
modore. 
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El lápiz óptico se convierte en 
un dispositivo capaz de detectar 
el paso del haz electrónico, con 
el fin de averiguar el punto de 
pantalla en el que se encuentra, 
cuando se produce el cruce con 
el haz. Para esto, el lápiz óptico 
está provisto de un elemento 
sensible a la luz, de tal manera 
que puede detectar un cambio 
brusco de intensidad luminosa, 
como lo es el paso del haz. Es 


ocho filas por ocho columnas, 
sin embargo, habitualmente, el 
lápiz óptico divide la misma su¬ 
perficie en ocho bloques debido 
a su menor resolución. 

Hay que añadir que el lápiz ¡ 



muy importante que la luz am¬ 
biental no influya en el compor¬ 
tamiento del lapicero, lo que su¬ 
pondría unos disparos bruscos 
por parte de éste, al desplazarlo 
de una zona poco iluminada a 
una zona más iluminada. 

La resolución de un lápiz ópti¬ 
co se mide por el punto más pe¬ 
queño que es capaz de detectar. 
El lápiz ideal debería ser capaz 
de detectar un pixel, sin embar¬ 
go, debido a la superficie del ele¬ 
mento detector que en cualquier 
caso siempre es mayor que la de 
un pixel, la resolución es siem¬ 
pre menor. 

El CBM-64, forma cada carác¬ 
ter en la pantalla con una matriz 
de 64 puntos, distribuidos en 


lamente detecta el paso del haz 
y no el color de la zona de la pan¬ 
talla, sobre la que está posicio- 
nado. El tratamiento del color lo 
realiza el software encargado de 
manejar el lápiz, siendo habitual 
una pérdida de sensibilidad en 
las zonas de la pantalla que tie¬ 
nen un color más oscuro. 

La información enviada por el 
lápiz es registrada por el ordena¬ 
dor mediante medios físicos 
—hardware— o medios lógicos 
—software—. Midiendo el tiem¬ 
po que transcurre desde que el 
haz comienza su exploración de 
la pantalla hasta que éste, es de¬ 
tectado por el lápiz óptico. Pu- 
diendo saber con mayor o menor 
precisión, en qué punto de la 
pantalla se detectó el cruce y por 
lo tanto, dónde se encuentra po- 
sicionado el lápiz óptico. 

Para indicarle al ordenador 
que el lápiz está apuntando al 
punto deseado, algunos lápices 
disponen de un pulsador, bien en 
la punta del lápiz o en uno de sus 


lados, encontrando también en 
algunos modelos pulsadores del 
tipo táctil en los que sencilla¬ 
mente con tocar la zona sensible 
se obtiene el mismo efecto que 
con un pulsador normal. Otros 
modelos, sin embargo, carecen 
de cualquier tipo de pulsador, 
con lo que la utilización del lápiz 
se hace conjuntamente con el te¬ 
clado del ordenador. 

El programa que controla el in¬ 
terface es el encargado de medir 
este tiempo, calculando las coor¬ 
denadas de posicionamiento. 
Aunque también existen disposi¬ 
tivos electrónicos especializa¬ 
dos que contienen las coordena¬ 
das del disparo del lápiz óptico 
a disposición del programa. Es¬ 
te segundo tipo es preferible al 
primero, ya que el programa no 
necesita calcular las coordena¬ 
das de la pantalla dado que un 
elemento interno del ordenador 
se las facilita. 

Para el caso concreto del 
Commodore, el procesador de vi¬ 
deo VIC 6569 posee unos regis¬ 
tros en los que quedan almace¬ 
nadas las coordenadas de inter¬ 
cepción del haz luminoso con el 
lápiz óptico. Hecho que asegura 
la compatibilidad entre la mayo¬ 
ría del software de los lápices 
ópticos en el Commodore. 
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EL LAPIZ OPTICO TROJAN 


El paquete que nos ofrece la 
casa Trojan, incluye el lápiz óp¬ 
tico además de un manual que te 
permite utilizar el software, pre¬ 
sentado en cassette. 

El lápiz Trojan, de origen in¬ 
glés, fue uno de los pioneros 
dentro del mercado de diseño 
gráfico por ordenador. 


lápiz óptico es muy alto, debido 
a la poca cantidad de componen¬ 
tes necesarios para cumplir su 
función. Físicamente tiene un di¬ 
seño que facilita su manejo con 
suma comodidad, además de 
presentar una gran robusted. 


Hardware: 

Tras un conector de nueve pi- 
nes y un cable de un metro, en¬ 
contramos el lápiz, propiamente 
dicho. Este se encuentra forma¬ 
do por una funda de plástico, en 
cuyo interior encontramos algu¬ 
nos componentes electrónicos, 
entre ellos un fototransistor, una 
resistencia y un transistor bipo¬ 
lar convencional. 

La conexión entre la parte 
electrónica y el port de juego se 
realiza sencillamente a través de 
tres cables, dos de alimentación 
y uno portador de la señal de dis¬ 
paro del periférico. 

El índice de fiabilidad de este 


Software: 

El programa de diseño gráfico 
CADMASTER que acompaña al 
lápiz, en forma de cassette, aun¬ 
que también soporta disco, tie¬ 
ne todas las características de 
un buen programa de proceso de 
gráficos; el menú principal ocu¬ 
pa toda la pantalla en forma de 
pequeños cuadrados, sobre los 
que se realiza la selección y un 
texto en cada cuadrado que in¬ 
dica la acción que cada opción 
realiza. 

En conjunto se trata de un pa¬ 
quete con una buena relación 
calidad-precio. 




12 • COMMODORE MAGAZINE 











EL LAPIZ OPTICO 
MICROSCRIBE 

El distribuidor en España de la 
casa Amicron, Enfa Ibérica, nos 
ofrece el lápiz óptico Microscri- 
be a un precio de 10.000 pesetas. 



Hardware: 

La parte electrónica de este lá¬ 
piz, presenta un diseño y carac¬ 
terísticas totalmente profesiona¬ 
les. El «envase» de este lápiz, 
con un diseño muy estilizado, es 
de metal y dejando asomar al ex¬ 
terior por la parte anterior un pul¬ 
sador. En el interior del tubo me¬ 
tálico que sirve de protección fí¬ 
sica al circuito además de prote¬ 
gerle contra las radiaciones elec¬ 
tromagnéticas, encontramos 
una placa-soporte de un material 
cerámico, en la que están seri- 
grafiadas las resistencias del cir¬ 
cuito. El proceso de ajuste de es¬ 
tas resistencias se realiza a tra¬ 
vés de unas incisiones realiza¬ 
das con un rayo láser, hasta al¬ 
canzar el valor ópmico necesario 
en cada una de ellas. El resto de 
los componentes, en su mayoría 
transistores de un diminuto ta¬ 
maño, están soldados en la su¬ 
perficie del sustrato cerámico. 
Este tipo de tecnología es poco 
habitual en la electrónica de con¬ 


sumo y menos habitual en peri¬ 
féricos de bajo precio, por lo que 
la calidad de este lápiz es excep¬ 
cional. 


Software: 

En una cassette con turbo, en¬ 
contramos el programa de dise¬ 
ño gráfico llamado GRAFFITI y 
en la documentación que acom¬ 
paña al lápiz encontramos las ru¬ 
tinas para manejar este periféri¬ 
co desde nuestros propios pro¬ 
gramas BASIC (muy de agrede- 
cer). El menú principal, siempre 
presente en la pantalla junto con 
la zona de dibujo, está formado 
por unas ventanas en la parte in¬ 
ferior de la pantalla, con un tex¬ 
to que indica la acción que rea¬ 
lizan. Algunas de las opciones 
hacen aparecer un nuevo menú 
de selección. El disco también 
se encuentra soportado en este 
paquete. 

En resumen, un lapicero técni¬ 
camente perfecto junto con un 
software aceptable. 

Enrique Fernández Rasero 



J] UU*~4 

1^5 U«w* 
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9 REM **** ENTRADA DE DATOS **** 

10 DÍM A*(20) 

20 I NF'U'T " DATOS " ; AT 
30 IF AT="FIN" THEN 100 
40 N=N+1 : Af-<N> =A*- 
50 GOTO 20 

99 REM ** RUTINA DE IMPRESION ** 

100 FOR F-l TO N 
110 eOSUB 200 

120 PRI NT TAB (FN C (C) ) AT < P) 

130 NEXT P 
140 END 

199 REM ** RUTINA DE CENTRADO ** 

200 C=LEN(AT(P)) 

210 DEF FN C (0=20-0/2 
220 RET'URN 


CENTRADO 
DE TEXTOS 

^Vhora con tu Commodore y 
con la ayuda de este truco pue¬ 
des sacar textos centrados en tu 
pantalla; sólo tienes que introdu¬ 
cir una pequeña rutina de centra¬ 
do y utilizar un PRINT TAB (FN C 
(C)) A$ para la impresión del tex¬ 
to. 

La rutina de centrado determi¬ 
na la columna de pantalla donde 
va a comenzar la impresión de la 
variable A$, en el caso del ejem¬ 
plo es la variable A$(P), en lo que 
nosotros hemos llamado rutina 
de impresión, se pinta el valor de 
la variable alfanumérica A$(P) con 
la lontigud determinada por 
LEN(A$(P)) y en la posición calcu¬ 


lada por FN C(C). 

Todas estas pequeñas rutinas 
puedes introducirlas en cualquie¬ 


ra de tus programas, estudiando 
primero los parámetros que tie¬ 
nes que ordenar. 


JUSTIFICACION DE TEXTOS POR LA DERECHA 


9 REM **** ENTRADA DE DATOS **** . 

10 DIM AT020) 

20 INPUT“DATOS”;A* 

30 IF AT—"FIN" THEN 100 
40 N=N+1 : m (N) ~~A# 

b ( j g u r o i o 

99 REM ** RUTINA DE IMPRESION ** 

100 FOR OI TO N 

1 10 PR INT TAB (20--LEN (AT (O) ) ) AT : (C) 
120 NEXT C 
130 END 


M uchas veces necesitamos 
en la salida de mensajes por pan¬ 
talla la justificación de textos por 
la derecha, siendo en la mayoría 
de los casos muy útil para la pre¬ 
sentación de operaciones de 
suma, donde las cifras deben ir 
justificadas por la izquierda (fac¬ 
turas, etiquetas, albaranes...). 

La forma de conseguir esto es 
mediante la instrucción. 

PRINT TAB (C-LEN(S$))S$ 

Donde C representa la columna 
(de O a 39) final sobre la que se 
justifica la cadena, y la variable 
alfanumérica S$ será la cadena a 
imprimir. 

El truco consiste en tabular la 
salida de la cadena alfanumérica 


y restarle el número de caracte¬ 
res mediante la sentencia LEN 
(S$), quedando de esta forma el 
último carácter de la cadena en 
la columna C. 


El ejemplo consta de dos par¬ 
tes, una la entrada de datos por 
un INPUT, y una segunda parte, 
que te imprime la cadena de da¬ 
tos ya tabulada. 
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SOFTWARE 



Speed- 

King 

^5eguro que a estas alturas ya 
eres un experto jugador de 
Speed-King; y digo esto porque el 
juego del que hablamos ahora ya 
está presente en muchos locales 
públicos. Me estoy refiriendo a 
una peligrosa carrera de motos. 

Puedes elegir entre diez circui¬ 
tos, con distintas dificultades en 
cada uno. Antes de comenzar la 
carrera tienes la oportunidad de 
dar una vuelta de reconocimiento 
por el circuito elegido. Como ya 
sabemos, tu objetivo es participar 
en una gran carrera de motos. 
Competirás con otros diecinueve 
corredores. Si tienes poca prácti¬ 
ca en este tipo de carreras, no te 
preocupes, porque tienes la opor¬ 
tunidad de entrenar sobre el cir¬ 
cuito las veces que quieras, antes 
de comenzar la competición. Co¬ 
mienza por el nivel de «novicio», 
continúa con «prácticas» y luego 
lánzate a la carrera. 

Speed-King tiene un elemento 
que da una emoción adicional al 
juego. Tu moto está especialmen¬ 
te preparada para grandes com¬ 
peticiones y tiene hasta seis mar¬ 
chas, que ajustarás dependiendo 
de la velocidad a la que circules. 

Durante el recorrido, podrás es¬ 
tar informado de todas las inci¬ 
dencias que se produzcan. En la 
parte superior de la pantalla, ve¬ 
rás unos indicadores que te infor¬ 
man sobre la velocidad que lle¬ 
vas, el número de vueltas que has 
dado al circuito y el mejor tiem¬ 
po conseguido hasta el momen¬ 
to. También dispones de un cro¬ 
nómetro, al que debes estar aten¬ 
to en todo momento, para mejo¬ 
rar tu récord de tiempo. 

Si tienes mala suerte (o poca 


práctica) y chocas con algún otro 
participante en la carrera, perde¬ 
rás combustible y sufrirás una pe- 
nalización de tiempo, hasta que 
consigas volver a tener control 
sobre la moto. 

Para obtener un mejor resulta¬ 


do en la competición, puedes re¬ 
ducir el número de vueltas que 
vayas a dar al circuito. Pero ten 
en cuenta que si tomas esta me¬ 
dida, tu habilidad en el manejo de 
la máquina tendrá que ser mucho 
mayor. 
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War 

Hawk 

Estamos esta vez, ante un jue¬ 
go que tiene todo el encanto de 
las antiguas máquinas de «mar- 
cianitos», junto con la sofistica¬ 
ción en gráficos y sonidos carac¬ 
terística de los juegos de ordena¬ 
dor de hoy en día. 

Si te gustan los juegos en los 
que hay que disparar continua¬ 
mente contra las naves enemi¬ 
gas, y esquivarlas con toda rapi¬ 
dez, estás de enhorabuena, ¡ya 
existe tu juego favorito! 

War Hawk, es una nave espa¬ 
cial, de avanzada tecnología que 
tú pilotas por la zona del Asteroi¬ 
de. Pero, como podrás imaginar, 
no se trata de un viaje de placer, 
sino que tendrás que ir defen¬ 
diéndote constantemente de tus 
enemigos. Ellos procurarán no 
dejarte en paz, enviando contra 
ti, las más extrañas naves que 
puedas imaginar. Además, de 
vez en cuando, se interpondrán 
en tu camino unas enormes mi¬ 
nas. Procura no chocar con 
ellas, o de lo contrario, tus escu¬ 
dos protectores Irán desapare¬ 
ciendo y quedarás indefenso an¬ 
te tantos enemigos. 

Es fundamental que durante 
todo el recorrido, seas capaz de 
conservar la calma. No dejes que 
la velocidad del juego o los so¬ 
nidos, tan realistas en ocasio¬ 
nes, puedan afectar a tus ner¬ 
vios. Tu mano debe ser segura, 
y no vacilar en ningún movimien¬ 
to si quieres formar parte del ran- 
king de héroes del espacio. 

Aunque el argumento y el des¬ 
arrollo del juego que tratamos, 
son frecuentes en juegos de or¬ 
denador, Warhawk destaca por 
la alta calidad que sus creadores 
han sabido dar tanto a los gráfi¬ 
cos como al sonido. Tiene todos 


los ingredientes para crear un al¬ 
to nivel de adicción tanto en per¬ 
sonas muy aficionadas a los jue¬ 
gos de ordenador, como en los 
principiantes o incluso en aque¬ 
llos a los que no les gustan este 


tipo de juegos. 

Cuando pienses jugar con 
Warhawk, asegúrate de que tie¬ 
nes mucho tiempo por delante; 
nunca se sabe, ¡cuándo te deci¬ 
dirás a desenchufar el ordenador! 
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HABILIDAD 



DEPORTE 


Strongman 



podrás pasar a la acción, tienes 
seis posibles adversarios que 
son de lo más variados, desde 
arrastrar camiones, volcar co¬ 
ches, levantar toneles, cortar le¬ 
ños, etc... hasta la lucha libre. 

Para logra pasar todos los ni¬ 
veles, tendrás que practicar mu¬ 
cho pues no es nada fácil, pero 
insiste, y a base de mucho entre¬ 
namiento conseguirás la fuerza 
necesaria para salvar todos los 
obstáculos. 

Este juego presenta unos grá¬ 
ficos donde nos muestra el inte¬ 
rior de un gimnasio con sus apa¬ 
ratos y, ya fuera de él, los duros 
retos que tendrá que superar pa¬ 
ra ser el Campeón de la Olimpia¬ 
da de este año. 

En general, es un juego de te¬ 
ma original, pero un poco lento, 
aunque si te gusta esta trama, 
ten por seguro que te hará estar 
mucho tiempo «entrenando». 


U Itimamente está muy de 
moda eso de desarrollar los 
músculos, cultivar el cuerpo, el 
aerobio, culturismo, etc... está 
siendo algo común para muchas 
personas. Pues bien, el juego de 
Zafiro Soft, te dará unas cuantas 
ideas para cultivar los músculos. 

Nuestro protagonista es 
GEOFF CAPES, campeón de los 
Juegos Mundiales de Montaña, 
y con él te entrenarás para poder 
competir contra los más difíciles 
adversarios. 

El juego tiene dos partes, una 
el entrenamiento y otra la com¬ 
petición. En la parte del entrena¬ 
miento, deberás distribuir tu 
tiempo y los ejercicios que quie¬ 
res hacer para fortalecer unas u 
otras zonas de tu cuerpo, para 
ello podrás decidir tú en que par¬ 
tes quieres tener más fuerza, o 
en un brazo, o en las piernas, 
etc... Los entrenamientos se ha¬ 
cen con pesas, o con barras de 
hierro que deberás doblar. 

Cuando consideres que ya es¬ 
tás suficientemente preparado, 
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ecuerdas aquella serie 
de T.V.? Sí, la que trataba de las 
misiones de un cuerpo de policía 
especialmente entrenado para 
misiones difíciles y peligrosas. 
Cuando ya casi se creía imposi¬ 
ble ese «final feliz», llegaban los 
hombres de SWAT (los hombres 
de Harrelson) y lo solucionaban 
todo. 

Bueno, pues una vez más, los 
SWAT se encuentran ante una 
misión difícil y muy importante. 
Nos encontramos en la ciudad 
de Los Angeles, y un grupo de te¬ 
rroristas ha conseguido hacerse 
fuerte en la parte oeste de la ciu¬ 
dad. Sólo los hombres de SWAT, 
tienen la suficiente pericia y va¬ 
lentía como para enfrentarse a 


esta situación y salir victoriosos. 
La misión se complica espe¬ 


cialmente al desarrollarse en las 
calles de la ciudad. Un auténti¬ 
co ejército de hombres sin pie¬ 
dad, armados con bombas y me¬ 
tralletas, intentarán acabar con 
todo el equipo SWAT. No sólo 
habrá que acabar con los terro¬ 
ristas, además hay que proteger 
a la población. 

Los enemigos son muy listos. 
Ellos pensaron que la policía no 
se atrevería a intervenir en plena 
ciudad, contra unos hombres ar¬ 
mados hasta los dientes. Es cier¬ 
to, la vida de muchos transeún¬ 
tes inocentes corre peligro. Por 
ello, los SWAT deberán tener es¬ 
pecial ciudado en afinar muy 
bien su puntería, y disparar sólo 
cuando sea necesario, y contra 
los terroristas. Si por error matas 
a un ciudadano inocente, serás 
gravemente sancionado. Un 
equipo fuerte y bien entrenado 
como SWAT no puede permitir¬ 
se esa clase de fallos. 

Del mismo modo, el enemigo 
intentará capturar rehenes que 
tú, como miembro del equipo 
SWAT, deberás rescatar sin que 
su vida corra peligro. 

La calle está plagada de hom¬ 
bres armados. Distingue bien a 
tus enemigos de los inocentes. 
Dispara sin piedad contra los pri¬ 
meros y rescata y protege a los 
segundos, es tu misión ahora 
dentro del equipo SWAT. 
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Flash Gord 



uelve el gran héroe que no 
tenía rivales capaces de hacerle 
perder su fama, miles de aventu¬ 
ras enfrentándose a los mayores 
peligros jamás conocidos, habla¬ 
mos de...FLASH GORDON. 

Esta vez también le ha tocado 
una dura tarea, primero en la pe¬ 
ligrosa jungla, luego peleando 
con un terrible enemigo... Tú ten¬ 
drás que echarle una mano, o las 
dos, por esta vez. 

La pantalla aparece dividida 


en zonas, una con un mapa, otra 
por donde FLASH GORDON se 
va adentrando en la jungla y lue¬ 


go un contador de tiempo cuyo 
límite son 24 horas. 

En la selva te enfrentarás con 
terribles pájaros, precipicios in¬ 
terminables, fieras que te ataca¬ 
rán si no eres más rápido que 
ellas. Puedes acabar con tus 
enemigos usando tu arma, pero 
sólo la podrás recargar una vez 
en un sitio determinado donde 
dejaste tu munición, luego des¬ 
aparece y no vuelve a aparecer, 
tu suerte dependerá de tu habi¬ 
lidad. 

Cada vez que te maten o te ha¬ 
gan desaparecer, perderás tiem¬ 
po extra y eso hará que tu misión 
se complique, ya que tienes que 
evitar los retrasos si quieres que 
todo acabe como habías planea¬ 
do. 

En los otros dos niveles ten¬ 
drás que superar también los 
problemas que se te presenten. 
Una ayuda pueden ser, la canti¬ 
dad de movimientos que tu pro¬ 
tagonista puede realizar gracias 
al joystick: saltar, disparar, aga¬ 
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charse, pegar puñetazos, etc. 
Con un poco de paciencia logra¬ 
rás dominar todos ellos, y as 
contribuir a que concluya su rn 
sión satisfactoriamente. 

Los gráficos y el sonido ade¬ 
cuados para el tipo de juego ce 
que se trata. El tema, bien elec 
do y tratado, es capaz de mante 
ner la intriga durante bastan:e 
tiempo, así lo único que hace fa 
ta es que lo pongas en tu orde 
nador e intentes cumplir la fi¬ 
sión que esta vez te ha tocado e 
ti resolver con una pequeña a.. 
da de FLASH GORDON. 
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LE OFRECE LOS MEJORES LIBROS 
PARA SU ORDENADOR 



P.V.P. 750 PTAS. 

(IVA INCLUIDO) 

Descubre los misterios de la 
programación de una forma 
sencilla, con ejemplos, 
programas y organigramas. 

(110 páginas, tamaño 13,5x21) 



P.V.P. 750 PTAS. 

(IVA INCLUIDO) 

Un libro especialmente 
dedicado a los que se inician 
por vez primera en el mundo 
del Spectrum. 

(100 páginas, tamaño 13,5x21). 


P.V.P. 900 PTAS. 

(IVA INCLUIDO) 

Un compendio de los 
programas más diversos con 
los que podrá aprender 
jugando las importantnes 
características del BASIC. 
(258 páginas, tamaño 
15,5x21,5). 



P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Con utilidades, juegos 
exploxivos y gráficos 
dinámicos que lleva al BASIC 
hasta el mejor 
aprovechamiento de sus 
posibilidades. 

(200 páginas, tamaño 
15,5 x 21,5). 


P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Una inestimable ayuda que 
complementará la que 
proporciona el manual del 
ordenador. 

(108 páginas tamaño 
13,5 x 21,5). 


P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Muestra una visión más 
completa del correcto 
funcionamiento del juego de 
instrucciones del C-64. 

(108 páginas, tamaño 
13,5 x 21,5). 
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1985, The Day After 

El principal peligro con que te 
enfrentas es tu falta de habilidad 
para manejar el aparato que pilo¬ 
tas. Una vez que lo domines, con¬ 
seguirás obtener toda la energía 
necesaria para tus amigos super¬ 
vivientes del desastre. 

Los planetas son de diferentes 
colores, y en cada uno las dificul- 
tadades son distintas. Laberintos 
más o menos intrincados, o luga¬ 
res más o menos accesibles en 
los que obtener lo que buscas. 

Mediante un potente rayo, del 
que está dotada tu nave, podrás 
hacerte con esas esferas que 
contienen la energía. 

En tu planeta no dudan de tu 
capacidad para resolver la mi¬ 
sión, así que ten un poco de pa¬ 
ciencia y no los defraudarás. 



Un título sugerente, ¿verdad? 
Nos recuerda a la película «El día 
después», que pudimos ver en las 
carteleras de cine hace un par de 
años. 

Este es un juego, cuyo argu¬ 
mento está basado en ese hipo¬ 
tético día después del holocaus¬ 
to. Donde tú, en tu nave, eres el 
encargado de buscar esa poca 
energía aprovechable para los su¬ 
pervivientes. 

Tendrás que ir a cuatro plane¬ 
tas vecinos, en busca de esa pre¬ 
ciada energía, pero para ello an¬ 
tes deberás salir de la base en 
que te encuentras. Poco a poco 
conseguirás acostumbrarte a los 
complicados mandos de la nave 
que pilotas, que por la altísima 
sensibilidad que tienen a los mo¬ 
vimientos de tus manos, te cos¬ 
tará un poco controlar. 

Antes de adentrarte en el espa¬ 
cio hacia esos planetas vecinos, 
procura recoger las esferas de 
energía colocadas en las distin¬ 
tas estaciones espaciales que va¬ 
yas encontrando. 
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CONCURSO MENSUAL DE COMMODORE MAGAZINE 


Su programa Para Cualquier 
Sistema Commodore 
Puede Hacerle Ganar 5.000 Ptas. 


E l presente 

CONCURSO ESTA 
ABIERTO A TODOS 
NUESTROS LECTORES 
Y SU PARTICIPACION 
E INSCRIPCION ES 
GRATUITA. 

LEA LAS BASES DEL 
CONCURSO 


■ NO SE ESTABLECEN LIMITACIONES 
EN CUANTO A EXTENSION. TEMA ELEGIDO 
O MODELO DE ORDENADOR 


■ LOS CONCURSANTES DEBERAN 
ENVIARNOS A LA DIRECCION QUE FIGURA 
AL PIE. EL CASSETTE O DISKETTE 
CONTENIENDO EL PROGRAMA. UNA 
EXPLICACION DEL MISMO Y. 

AL SER POSIBLE. UN LISTADO EN PAPEL 
DE IMPRESORA. SE PODRAN ENVIAR 
TANTOS PROGRAMAS COMO SE DESEE 

■ LOS PROGRAMAS. PREVIA SELECCION. 
SERAN PUBLICADOS EN LA REVISTA. 
OBTENIENDO TODOS ELLOS 5.000 PTAS. 


■ LA DECISION SOBRE LA PUBLICACION 
O NO DE IJN PROGRAMA CORRESPONDE 
UNICAMENTE AL JURADO NOMBRADO 
AL EFECTO POR “COMMODORE MAGAZINE”. 
SIENDO SU FALLO INAPELABLE 


■ LOS CRITERIOS DE SELECCION 

SE BASARAN EN LA CREATIVIDAD DEL 

TEMA ELEGIDO Y LA ORIGINALIDAD 

Y/O SENCILLEZ EN EL 

METODO DE PROGRAMACION GLOBAL 


■ ENVIAR A: 

CONCURSO COMMODORE MAGAZINE 



commodore 

M njgri2LLrw_ 

C/BRAVO MURILLO, 377 5 ° A 28020 MADRlü 
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E sta vez FIREBIRD nos enco¬ 
mienda la tarea de ayudar a un 
pequeño erizo SPIKY HAROLD, a 
que reúna toda la comida que 
pueda para que cuando llegue el 
invierno, no le pille sin provisio¬ 
nes en su despensa. 

Deberá buscar por todos los 
sitios posibles. Son 57 cámaras 
las que tiene que recorrer, pero 
también son muchos los proble¬ 
mas que tiene que solucionar, el 
principal es que sólo le quedan 
24 horas para que llegue el in¬ 
vierno y ha de darse mucha pri¬ 
sa. 

A lo largo de todo su camino, 
irá encontrando la comida pero 
también irá encontrando enemi¬ 


gos que no le dejarán que se la 
lleve, habrá copas de vino que le 


emborracharán si se descuida, 
nubes de azufre con las que no 
se puede chocar cuando salte, 
goterás que le quitarán una vida, 
aunque no todo es tan malo pa¬ 
ra el pobre SPIKY, en su recorri¬ 
do puede encontrar monedas 
que le darán más vidas. 

En la parte inferior de la pan¬ 
talla aparece el número de vidas 
que el quedan, el número de pie¬ 
zas de comida que va guardan¬ 
do en su despensa y un reloj que 
le indica lo que le falta para que 
llegue el invierno. Los gráficos 
están bien logrados, presentan 
una cuevas llenas de pequeños 
personajes, la mayoría poco ami¬ 
gos de SPIKY. El sonido se pue¬ 
de quitar o poner, según prefie¬ 
ras, aunque siempre quedarán 
las pisadas de nuestro protago¬ 
nista. 

Es un juego bastante entrete¬ 
nido, ameno al intentar cada vez 
descubrir algo distinto que la vez 
anterior, requiere práctica hasta 
que consigues salvar todos los 
obstáculos que te ponen delan¬ 
te, pero al fin lo conseguirás. 
Puedes usar el joystick o bien el 
teclado definiendo tú, en el me¬ 
nú principal, las teclas que quie¬ 
res usar, o si no utilizar las que 
ya vienen definidas en el 
programa. 

De cualquier modo te esperan 
muchas sorpresas en compañía 
de tu nuevo amigo. 
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Park Patrol 



l\l os encontramos en PAPA- 
TOETOE PARK, un parque un 
tanto especial, ya que estrena 
guardabosques y aún no está 
muy familiarizado con sus que¬ 
haceres, tú deberás ayudarle pa¬ 
ra que todo marche perfecta¬ 
mente. 

No te creas que tu misión es 
fácil, hay infinidad de problemas 
que deberás resolver, hormigas 
que te robarán la comida cuan¬ 
do estés distraído, troncos flo¬ 
tando y nadadores que chocarán 
con tu balsa, serpientes que de¬ 
bes evitar, tortugas que te hacen 
tropezar y te impiden recoger to¬ 
da la basura que hay esparcida 
por el parque. 

Cuando creas que ya tienes el 
parque organizado y por si te pa¬ 
rece poco, los nadadores en el 
momento más inoportuno se 
ahogarán y tendrás que dejar to¬ 
do para ir a rescatarlos. 

En la parte inferior de la pan¬ 
talla aparece la cantidad de ba¬ 
sura que tendrás que recoger pa¬ 
ra pasar de nivel, por cada pieza 


de basura que recojas ganarás 
puntos, así como cada vez que 
consigas bailar encima de los 


troncos, también te puedes librar 
de las hormigas dándoles una 
patada por detrás. 

Hay cuatro niveles que ten¬ 
drás que superar para ser un 
buen guardabosques, en el me¬ 
nú principal podrás elegir las di¬ 
ficultades de cada nivel, aña¬ 
diendo o quitando obstáculos. 

También tienes la opción de 
elegir uno o dos jugadores, y si 
quieres que sean hombres o mu¬ 
jeres, para ello usarás el joystick. 
Los gráficos de este juego están 
bien conseguidos, mostrándo¬ 
nos el parque con su pantano y 
su caseta del guarda, el sonido 
es un poco más normal. En con¬ 
junto es un juego que entretiene 
y no se hace monótono, es origi¬ 
nal en cuanto al tema y puede 
hacerte pasar un buen rato fren¬ 
te a tu ordenador-. 

Conforme vayas jugando irás 
descubriendo cosas nuevas, só¬ 
lo tendrás que fijarte en todo lo 
que te rodea y evitar los tropezo¬ 
nes. 
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NOMBRE: PARK PATROL 
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DE: FIREBIRD (Drosoft) 
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ORDENADOR: COMMODORE-64,128 
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Vendo ordenador C-64 y unidad de dis¬ 
co 1541 con poco uso en 65.000 pías. Re¬ 
galo joystick Quickshot II y cinco discos 
con juegos. Dirigirse a: Bruno Celaya Mon¬ 
tero. C/ Larraina, 19, 5°D. 31011 Pamplo¬ 
na. Tel.: (948) 26 49 81. 


Vendo juegos originales C-64 a 500 y 
1.000 ptas. De la calidad de Green Beret 
o Kane. Interesados facilito lista de los 
mismos. Dirigirse a: Bruno Celaya Monte¬ 
ro. C/ Larraina, 19, 5°D. 31011 Pamplona. 
Tel.: (948) 26 49 81. 


Necesito recaudar fondos para la com¬ 
pra de una impresora, por lo que vendo: 
monitor fósforo verde (no molesta vista) 
por 17.000. Un joystick Auto Fire por 1.700 
ptas. Varias revistas de Commodore por 
250 c/u. Y varios juegos, entre ellos Hard- 
ball, Tour de Francia, Rambo, Beach Head 
II... Por 1.500 c/u. Interesados dirigirse a: 
David Carmona Salas. C/ Gabriel Matute, 
8, 5 o F. 11008 Cádiz. Tel.: (956) 25 72 19. 


Cambio por C-64 + unidad de discos 
1541 un equipo CB S.Star B600, fuente, 
antena, acoplador, 5WR, cables, embalaje 
orig., facturas. Valor 45.000. Pago la dife¬ 
rencia. Sólo Barcelona y provincias. Con¬ 
tactar con Gabriel en el tel.: (93) 217 90 80. 


Por cambio de equipo vendo impresora 
MPS 801, prácticamente nueva, por 25.000 
ptas. Interesados dirigirse a: Galo Sán¬ 
chez Casado. Cardoner, 42-44, 2. 08024 
Barcelona. Tel.: (93) 210 31 11. 


Vendo un lote de cintas para el CBM-64 
entre las que se encuentran: Kung Fu 
Master, Rambo, Pitstop II, Decathlon, Spa- 
ce Shutle, Skyfox, Mach Point, Bruce-Lee, 
Commando y 180 programas igual de bue¬ 
nos, con utilidades y funcionando. Tam¬ 
bién vendo joystick Quick Shot II nuevo, 
un cartucho valorado en 6.000 ptas. «HES^ 
MON» y 50 revistas de informática. Lo ven-’ 
do todo o lo cambio por una unidad de 
discos para CBM-64 o una impresora en 
buen estado de uso. También doy 6 libros 
de informática. Interesados llamar duran¬ 


te todo el día al tel.: (93) 318 44 61 o es¬ 
cribir a: Vicente Gascón. C/ Lancaster, 16, 
I o . 08001 Barcelona. 


Cambio módulo expansor para 6 cartu¬ 
chos Vic-1020, dos cartuchos (8 y 16 K) 
para Vic 20 por cualquier material informá¬ 
tico, fotográfico o electrónico, etc. Dirigir¬ 
se a: José Casais Blanco. Ponte de Saa, 
74. Villalba 27800 Lugo. 


¡¡Atención!! Vendo juegos para C-64. 
No importa que tengas pocos. Mándame 
tu lista y prometo mandarte la mía. Mi di¬ 
rección es: Oscar Fernández Orallo. Plza. 
la Fortaleza II, 4°C. 24400 Ponferrada. 
León. 

Si eres de Ponferrada y quieres formar 
un club, llámame. Tel.: (987) 41 85 73. 


Se ha formado en Barcelona el Club 
B.C.S. (Barna Computer Service). Abarca 
Spectrum, Commodore, Amstrad y MSX. 
Interesados escribir al apartado de 
correos de Barcelona n° 2309. C.P. 08080 
(indicando modelo de ordenador) o llamar 
al tel.: (93) 309 56 52. Preguntar por Angel. 


Intercambio programas en disco para 
CBM-64. Poseo más de 1.000. Prometo 
contestar. Mandar lista a Antonio Molina 
García. Barriada de la Constitución, blo¬ 
que 12, 2°C. Melilla. 


Para recaudar fondos para la compra de 
un nuevo equipo (C-128) vendo para el 
C-64 lo siguiente: entre juegos y utilidades 
hacen un total de 250 programas, juegos 
tales como Commando, One on One, Fist 
I, Breakdance, The Dambusters, etc., utili¬ 
dades tales como Tasword, Simon’s Ba¬ 
sic, Sam Reciter, etc. También vendo re¬ 
vistas de Commodore World, Magazine, 
Input, Tu micho, Muy ordenadores, Orde¬ 
nador Personal, etc. Y por último vendo li¬ 
bros: Gráficos y sonido para el C-64, va¬ 
rios libros de informática, Diccionario de 
electrónica e informática, etc. Interesados 
dirigirse a: Miguel Angel Huelves García. 
C/ Entre Arroyos, 64, 1°B. 28030 Madrid. 
Tel.: (91) 439 96 31. 


Tengo un CBM-64 y un cassette C2N. In¬ 
tercambio todo tipo de programas. Aun¬ 
que mi lista no es muy extensa, todos mis 
programas son de calidad y últimas nove¬ 
dades (Infiltrator, Mission Elevator, Spin- 
dizzy, etc.). Mi dirección es: David Rincón 
Rivera. Ctra. D’Esplugues, 66, 2°-1 a . Cor- 
nellá de Llobregat. 08940 Barcelona. Pro¬ 
meto contestar. 


Vendo ordenador C-128 por 45.000 ptas. 
Monitor fósforo verde con cable 40/80 co¬ 
lumnas por 15.000 ptas. Datassette, 5.000 
ptas. Unidad de disco 1541, 30.000 ptas. 
Unidad 1571, 45.000 ptas. Contactar con 
Luis E. Gutiérrez Behemerid. C/ Labrado¬ 
res, 30, 6 o B. 47004 Valladolid. Tel.: (983) 20 
23 64. 


Cambio 50 juegos para el Commodore 
64 (la mayoría con Turbo) de entre los cua¬ 
les destacan: Zorro, Skool Daze, Dinamite 
Dan, Blue Max, Dambusters, Staff of Kar- 
nath, High Noon, Falcon Patrol II, y otros 
muchos. Interesados dirigirse a: Viceme 
Ramos. C/ S. Ramón, 11, Burriana (Cas¬ 
tellón). 


Club Usuaris Commodore-Tarragona 
centro homologado por la Generalitat ce 
Catalunya; nuestras actividades están c! s- 
tribuidas en distintas secciones: Biblio*e 
ca, Programoteca, Cursos, Asesoramie* 
to, etc. Dos años al servicio de nuestr: s 
socios. Para información: Club Usua 
Commodore. Apartado de Correos 1~: 
Tarragona. O también, el Fortuny, 4, 2.° 2 . 1 
Tarragona. 


Vendo ordenador Vic-20 y unidad de* 
cassette nuevos,. Regalo revistas y cintas. 
Interesados dirigirse a: Félix Tajuelo. Islas 
Cíes, 13. 28035 Madrid. Tel.: (91) 739 33 68. 
Precio a convenir. 


Usuario de CBM-64, desea contar: 
con otros usuarios interesados en las c: 
municaciones por Ordenador, a través 
Modem telefónico. Interesados llama* : 
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~ ‘ 36 00 63, o escribir a Eduard Macip. 
. “Om de la vila, 5. 43400 Montblanc 
"i-agona). También cambio programas. 


Progres, 3. Planta baja. Rubi 08191. Vallés 
Occidental (Barcelona). 


das las últimas novedades. Dirigirse a: 
Francisco Javier Bernal Malillos. C/ Eche- 
garay, 1. Cantalejo (Segovia). Tel.: (911) 52 
04 04. 


*endo junto o por separado videojuego 
- =r dos paddles, dos joysticks, dos te¬ 
dios numéricos con entrada Atari, 15 
: ~ jchos de juegos. Precio a convenir. Di- 
: se a: Manuel Castaño Cano. Avda. 
~*cdomiro, 1, 1.° C. 03300 Orihuela (Ali¬ 
garte). 


'•'e interesaría vender la colección com- 
: t a de revistas Commodore Magazine 
:t 1 al 35), y también el Curso de intro- 
:acción al Basic I y II, de Andrew Colin (o 
cambiar). 

También vendo la cinta original del jue- 
:: de ajedrez, Gran Master 64, y el cartu- 
:to International Soccer. Para ofertas di- 
: r se a: Jordi Bonell Busquéis. Plaza del 


Me gustaría adquirir o cambiar progra¬ 
mas de dibujo y diseño técnico. También 
programas de cálculos mecánicos o de in¬ 
geniería para Commodore 64. Interesados 
dirigirse a: Jordi Bonell Busquéis. Plaza 
del Progres, 3. Planta baja. Rubi 08191. Va¬ 
llés Occidental (Barcelona). 


Urge comprar unidad de discos. O pue¬ 
do ofrecer un lote de programas valorado 
en 130.000 ptas. a cambio de unidad de 
discos o de impresora o de monitor color 
o de cualquier periférico para CBM-64. 
Cambio CBM-64, por CBM-128 pagando la 
diferencia y regalo programas. Vendo vi¬ 
deopac Phiplips G-7400 convertible en or¬ 
denador, regalo programas. Intercambio 
software para CBM, tengo todas o casi to- 


Vendo compilador de COBOL, Lengua¬ 
je «C» y SPEED Termina Program para 
Commodore 128, en modo 128. 

Compiladores COBOL, Lenguaje «C», 
Lenguaje «ADA» y PASCAL para Commo¬ 
dore 64. No hace falta CP/M. 

Gastos de envío por mi cuenta. Fernan¬ 
do Gallardo R. Apdo. 315. 06800 Mérida 
(Badajoz). Tel.: (924) 31 07 61. 


Vendo VIC-20 con datassette y amplia¬ 
ción memoria; junto con curso de progra¬ 
mación y juegos. Todo por 15.000 ptas. Di¬ 
rigirse a José María. Tel.: (91) 202 90 33. 




r 


L 


ANUNCIOS GRATUITOS 


Todos los anuncios (compras, ventas, cambios o comunicaciones de clubs de usuarios, etc.) que van en esta sección, 
deben tener un máximo de cuarenta palabras. Con el fin de facilitar la transcripción de los anuncios hemos recuadrado 
cuarenta espacios para que en cada uno vaya una palabra. Después, recortar y mandar a: 


commodore 

MjOjgjazlru 


ANUNCIOS GRATUITOS 

C/ Bravo Murillo, 377, 5 ° A 
28020 MADRID 
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«Lotus 


La Guía Lotus Para Utilizar 


CARACTERISTICAS: 

• Páginas: 300 

• Papel offset: 112 grs. 

• Tamaño: 182 x 232 mm. 

• Encuadernación: Rustica-cosido 



LA GUIA LOTUS PARA UTILIZAR 1-2-3 

es un libro que le enseñará paso a paso cómo 
utilizar este programa. 


LA GUIA LOTUS PARA UTILIZAR 1-2-3 

contiene: 

- Glosario detallado e índice de forma que 
pueda encontrar fácilmente cualquier co¬ 
sa que necesite. 

- Explicación de la capacidad de macros de 
la versión 2. 

- Una biblioteca básica de macros que ofre¬ 
ce al nuevo usuario el descubrimiento in¬ 
mediato y el uso eficiente de los macros, al 
mismo tiempo que aprende a programar. 


El complemento indispensable para el manual 1-2-3 


OFERTA DE LANZAMIENTO 3.950 PTAS. (IVA INCLUIDO) 


Recorte y envíe HOY MISMO este cupón a: ¡nfoúis.s.3. c/ Bravo Murillo, 377 - 28020 MADRID 

CUPON DE PEDIDO 


SI. Envienme el libro «LA GUIA LOTUS PARA UTILIZAR 1-2-3» al precio 
de 3.950 PTAS. 


TAMBIEN 
LO PUEDE 
ADQUIRIR 
EN SU LIBRERIA 
HABITUAL 


EL IMPORTE lo abonaré: 

Con tarjeta de crédito VISA □ INTERBANK □ AMERICAN EXPRESS □ 
CONTRAREEMBOLSO □ ADJUNTO CHEQUE □ 


Número de mi tarjeta 
Fecha de caducidad _ 

NOMBRE_ 

DIRECCION_ 

CIUDAD_ 

PROVINCIA__ 


Firma, 


C.P. 


.TELEFONO 


























































Programas 


Estadística Loto 


2 a PARTE 


permite disponer semanalmente 
de una Estadística de la Lotería 
Primitiva. 

Las instrucciones de uso es¬ 
tán junto a la primera parte que 
puedes encontrar en el número 
anterior. 

La longitud del programa nos 
obligó a dividirlo en dos partes, 
y aunque por su extensión no de¬ 
biera haber superado las prue¬ 
bas de selección, el interés que 
despierta la Lotería Primitiva y la 
completa y fácil estructuración 
del programa, nos indujo a su pu¬ 
blicación. 


15035 GOSUB 30000 

15040 GET S$:IF S$=""THEN GOSUB 30070 
15045 IF S*="M" THEN6000 

15050 IF S#~"G" THEN PRINT BP#:GOTO15065 
15055 GOTO15040 

15060 REli ***************************** 

15065 GOSUB15835 

15070 PRI NT " •slWWílWWflílfllíWWíWWflrtWflWflrtlMÜMS . 9 10 11 12 13 14 15 16" 

15075 GOSUB15568:GOSUB15354 
15080 GOSUB 30000 

15085 GET Sí:IF Sí-""THEN GOSUB 30070 
15090 IF Sí»"M" THEN600O 

15095 IF S$="G" THEN PRINT BPÍ:GOTO15110 
15100 GOTO15085 

15105 REM *** * ************************* 

15110 GOSUB15835 

15115 pr i nt". 17 ib 19 20 21 22 23 24 " 

15120 GOSUB15568;GOSUB15396 
15125 GOSUB 30000 

15130 GET SisIF Sí»""THEN GOSUB 30070 
15135 IF Sí“ : "M" THEN6000 

15140 IF Sí : ~ ,, G" THEN PRINT BPÍ: GOTO 15155 
15145 GOTO15130 

15150 REM ***************************** 

15155 GOSUB15835 


E sta es la segunda parte del 
programa enviado por Jesús Gar¬ 
cía Lázaro para el CBM-64 que te 
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Programas 


15160 PR:INT , 'ci«iUi«RlPW«««i«Pl«RliaiaiaiaiaB!liilB«ML)MB. 25 26 27 28 29 30 31 

15165 GOSLJB15568: GOSUB15438 


151 7 O G ü SIJ B 3 O O O O 

15175 GE I ST: IF ST=""THEN GÜSLJB 30070 
1 5 1 80 I F GT=" M " THEN6000 

15185 IF SC=s"G" THEN PRINT BF’T: GOTO 15200 
15190 GOTO15i 75 

151 9 5 R E M * * * * * * * * * * * * * ¥: * * * * * * * * ******* 

15200 GOSUB15835 

15205 PRINT''i5!«««««rtPi«PjPi«««Bl««rtiil«i!|i!rNlüMS- 33 34 35 36 37 38 39 

1521 O GOSUB15568:GOSUB1 5480 
15215 GOSUB 30000 

15220 GE7 ST: IF ST~-- U "THEN GOSUB 30070 
15225 IF ST="M" THEN6000 

15230 IF ST="G" THEN PRINT BPT:GOTO15245 
15235 GOTO15220 

1524O R E:~ M ***** * * * * * * * * * * * * * * * * * * * * * * * * 

15245 GOSUB15835 

1 5250 PRI NT" '=iPlPlPlPlPlPlPlPlPlPjPlPlRlPlPlPlPlPlPlPlpf\|l.JNS . 41 42 43 44 45 46 47 

15255 GOSUB15568:GOSUB 1 5522 
1 526O G O S LJ B 3 O O O O 

15265 GE Y ST: IF ST~ : " " THEN GOSUB 30070 
1 52 7O 1F S T = "M" T H12 N 6 O O O 
15275 IF ST ::::: " G " THEN6000 
152B0 GOTO15265 

1 5285 R E M * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

153 1 0 I F R"/.=0 THEN6000 
15312 POR 1 = 1 TO R7. 

15314 FOR C=1 TO 7 


15316 
15318 
15320 
1 5322 
15324 
15326 
15328 
15330 
15332 

15334 

15335 

15336 
15338 
15340 
15342 
15344 
15346 
15348 
15350 
15352 
15354 
15356 


T*="di ■" 
GR=F 17. ( I 
I F : GR ::;: J. 
IF GR=2 
IF 6R= : 3 
IF GR=4 
IF GR=5 
IF GR=6 
IF GR=7 
IF GR=8 
GOTO 153 
FOR Z=1 


FOR 

FOR 

FOR 

FOR 

FOR 

FOR 

FOR 


Z=1 
2>1 
Z = 1 
7. = 1 
Z :; = 1 
Z=1 
Z = 1 


NEXT C,I 
FOR I = .l 
FOR C ~1 


: Q$ = "YI1" : PR 
, C) 

THEN A=6: BA™ 
THEN A=10:BB 
THEN A= 14: BC 
THEN A=18:BD 
THEN A~22:BE 
THEN A=26:BF 
THEN A=30:BG 
THEN A=34:BH 
52 

TO BAjPRINT 
TO BB:PRINT 
TO BC:PRINT 
Tu BD:PRINT 
TO BE:PRINT 
TO BF:PRINT 
TO BG:PRINT 
TO BH:PRINT 
:RETURN 
TO R7. 

TO 7 


INI 'U 


BA+1 : 
BB+l 
BC+1 
BD+1 
BE+1 
BF+1 
BG+1 
BH+1 

TAB (A 
TAB (A 
TAB (A 
TAB (A 
TAB (A 
TAB (A 
TAB (A 
TAB (A 


A1=BA:GOTO15336 
:A2=BB:GOTO15338 
:A3=BC:GOTO15340 
: A4-=BD: GOTO 15342 
:A5-BE:GOTO15344 
:A6=BF:GOTO15346 
:A7=B6:GOTO15348 
:A8-BH:GOTO15350 


) T$: 
) 7 $: 
) 7 -t: 
) T*: 
) T 7 : 
) T$ : 
) T í : 
) 7$: 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PR I NT 
PRINT 
PR I NT 


TAB 

TAB 

TAB 

TAB 

TAB 

TAB 

TAB 

TAB 


(A) Q* r. 
(A > Q *: 
(A) Q*z 
(A) Q:'í ; : 

< A)Q*: 

< A ) Q *: 
(A) Q *: 
(A)QT: 


NEXT 

NEXT 

NEXT 

NEXT 

NEXT 

NEXT 

NEXT 

NEXT 


Z:GOTO15352 
Z:GOTO15352 
Z:GOTO15352 
Z:GOTO15352 
Z:GOTO15352 
Z:GOTO15352 
Z:GOTO15352 
Z 


15358 T$= " S ■" : Q*~" TF1" : PR I NT " 1 

15360 GR'=F 17. (I , C) 

15362 IF GR--9 THEN A=6: BI=BI + 1: B1=BI: GOTO 15378 
15364 IF GR= 10 THEN A= 10: B J ==BJ +1 : B2=BJ : GOTO 15380 

15366 IF GR = 1 1 TF-lEN A = 14: BK=BK +1 : B3=BK: GOT015382 

15368 IF GR= 12 THEN A= 18: BL=BL..+ 1 : B4-BL: GOTO 15384 

153 7O I F GR = 13 THEN A=22: BN=BN+1: B5=BM: GOTO J. 5386 

15372 IF GR=14 THEN A=26:BN=BN+1:B6=BN:Gü TO15388 
15374 IF GR-~ 15 THEN A—30: BÜ=BÜ+1 : B7=BÜ: GOTO 15390 

15376 IF GR= 16 THEN A=34: BP=-BP+1: B8=BP: GOTO 15392 

15377 GOTO 15394 

15378 FOR Z=1 TO BI:PRINT TAB(A) 7 *:PRINT TAB(A)QT:NEXT Z:GOTO15394 

15380 FOR Z=1 TO BJ:PRINT TAB(A)Tt:PRINT TAB(A)Q$:NEXT Z:GOTO15394 

15382 FOR Z=1 TO BK:PRINT TAB(A)TT:PRINT TAB(A)QT:NEXT Z:G0T015394 

15384 FOR Z=1 TO BL:PRINT TAB(A)TT:PRINT TAB(A)QT:NEXT Z:GOTO15394 


32 " 


40" 


48 


49 
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2 3386 

FOR 

Z=1 

TO 

BM:PRI NT 

TAB(A)Tí:PRINT 

TAB(A)Qí:NEXT 

Z:G0T01 

5394 

23383 

FOR 

Z = 1 

TO 

BN:PRINT 

TAB<A>Tí:PRINT 

TAB(A)Qí:NEXT 

Z:GOTO1 

5394 


FOR 

Z = 1 

TO 

BO:PRINT 

TAB(A)Tí:PRINT 

TAB(A)Qí:NEXT 

Z:GOTOi 

5394 

2 5392 

FOR 

Z= 1 

TO 

BP:PRINT 

TAB(A)Tí sPRINT 

TAB(A)Qí:NEXT 

Z 



NEXT 

C,I:RETURN 





23396 

FOR 

1 = 1 

TO 

R7. 





25398 

FOR 

C=1 

TO 

7 





15400 

T*=" 

-a ■'< 

: Qí 

: = " TTT 1 : PF 





- 3 402 

6R=F 17. ( I 

,C) 







25404 

15406 

15408 

15410 

15412 

15414 

15416 

15418 

15419 

15420 
15422 
15424 
15426 
15428 
15430 
15432 
15434 
15436 
15438 
15440 
15442 
15444 
15446 
15*48 
15450 
15452 
15454 
15456 
15458 

15460 

15461 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


GR= 17 
GR-18 
GR—19 
GR=20 
GR—21 
GR-22 
GR—23 
GR—24 
GOTO 15436 
FOR Z = 1 TO 
Z —1 
Z=1 
Z — 1 
Z= 1 
Z = 1 
Z-l 
Z = 1 


THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 


A— 6:BGNBQ+1: C1-BQ:GOTG15420 
A= 10: BR—BR-i-1 : C2-BR: GOTO 15422 
A—14:BS-BB+1:C3=BS:GOTO15424 
A-18:BT=BT+1: C4=BT:GOTO15426 
A=22: BU=BU+1:C5-BU:GOTO15428 
A=26: BV-BV ■»“ 1 s C6=BV: GOTO 15430 
A—30:BW-BW+15 C7-BW: GOTO15432 
A-34:BX=BX+1:C8=BX:GOTO i5434 


FOR 

FOR 

FOR 

FOR 

FOR 

FOR 

FOR 


TO 

TO 

TO 

TO 

TO 

TO 

TO 


BQ:PRI NT 
BR:PRINT 
BSsPRINT 
BT:PRINT 
BUSPRINT 
BV:PRINT 
BW: PRI NT 
BXSPRINT 


TAB (A) Tí: PRINT 
TAB(A)TíSPRINT 
TAB(A)Tís PRINT 
T AB(A)Tí:PRINT 
TAB(A)Tí:PRINT 
TAB(A > Tí:PRINT 
TAB(A)Tí:PRINT 
TAB(A)Tí:PRINT 


TAB(A)Qís NEXT 
TAB(A)Qí:NEXT 
TAB(A)Qín NEXT 
TAB(A)Qí:NEXT 
TAB(A)Qí:NEXT 
TAB(A)Qí:NEXT 
TAB(A)Qí:NEXT 
TAB <A)Qí:NEXT 


Z:GOTO15436 
7.: BOTO 15436 
Z.s GOTO:! 5436 
Z : 00'"I Ü15436 
Z:GOTO15436 
Z:GOTO15436 
Z:GOTO15436 
Z 


NEXT C,I:RETURN 
FOR I = 1 TO R7. 
FOR C-l TO 7 
Tí-" S ■" : Qí= 

GR—F1 7 . (I ,C) 


¡PRINT' 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


GR—25 
GR—26 
GR—27 
GR—28 
GR—29 
GR—30 
GR-31 
GR—32 


THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 


A—6sBY-BY+1:Dl-BY:GOTO15462 
A-10:BZ-BZ+1:D2=BZ:GOTO15464 
A— 14: BA7.-BA7.+1 : D3=BA7 s 607'015466 
A— 18: BB7.-BB7+1: D4-BB7.: GOTO 15468 
A-22: BC"/.—BC7.+1¡ D5-BC7-: GOTO 15470 
A—26: BD7.—BD7.+1: D6=BD7.: GOTO 154 72 
A—30: BE7.-BE7.-+-1: D7=BE7- s GOTO i 54 74 
A—34: BF7.—BF7+1 : D8=BF7: GOTO 15476 


GOTO 15478 


15462 FOR Z-l TO 
15464 FOR Z = 1 TO 
15466 FOR Z — 1 TO 
15468 FOR Z = 1 TO 
15470 FOR Z—1 TO 
15472 FOR Z=1 TO 


BY:PRINT TAB(A)Tí:PRINT TAB(A)Qí:NEX7 Z 
BZ:PRINT TAB(A)TísPRINT TAB(A)Qí:NEXT Z 
BA7:PRINT TAB(A)Tí:PRINT TAB(A)Qí:NEXT 
BB7-: PRINT TAB (A) Tí s PRINT TAB (A) Qí: NEXT 
BC7.: PR I NT TAB (A).Tí: PR INT TAB (A) Qí: NEXT 
BD7.: PR I NT TAB (A > Tí: PR I NT TAB (A) Qí: NEX I 


sGOTO15478 
:GOTO15478 
Z:GOTO15478 
Z: GOTO15478 
Z: GOTO15478 
Z:GOTO15478 


15474 FOR Z=1 TO BE7.: PRINT TAB (A) Tí: PRINT TAB (A) Qí: NEXT 
15476 FOR Z — 1 TO BF7-: PRINT TAB < A) Tí: PRINT TAB (A) Qí: NEXT 
15478 NEXT C,I:RETURN 
15480 FOR 1 = 1 TO R7. 

15482 FOR C=1 TO 7 

15484 tí=" a ■": qí=" "m n : pr i nt " *• 

15486 GR=F 17. (1,0 

15488 IF GR=33 THEN A=6: BG7=BG7-i-1: El=BG7.s 60TG15504 
15490 IF GR=34 THEN A= 10: BH7.=BH7.+1 : E2=BH7.: GOTO 15506 
15492 IF GR=35 THEN A= 14: B17.=B 17. + 1 : E3=B 17.: GOTO 15508 
15494 IF GR=36 THEN A=18: BJ7.=BJ7.+ i : E4=BJ7.: G0T015510 
15496 IF GR«37 THEN A=22: BK7.=BK7.+ 1: E5=BK7.: GOTO 15512 
15498 IF GR=38 THEN A=26: BL7.=BL7,+1: E-6=BL7.: GOTO 15514 
15500 IF GR=39 THEN A=30: BM7-=BM7.+ 1: E7=BM7: GOTO 15516 

15502 IF GR=40 THEN A=34: BN7.=BN7.+ 1 s E8=BN%: GOTO 15518 

15503 GOTO 15520 

15504 FOR Z= 1 TO BG7-: PRINT TAB (A) Tí: PRINT TAB (A) Qí: NEXT 

15506 FOR Z = 1 TO BH7-: PRINT TAB (A) Tí: PRINT TAB (A) Qí: NEXT 

15508 FOR Z = 1 TO B17.: PRINT TAB * A) Tí: PRINT TAB (A) Qí: NEXT 

15510 FOR Z = 1 TO BJ7.: PRINT TAB < A) Tí: PRINT TAB (A) Qí: NEXT 


Z:GOTO15478 
Z 


Z:GOTO15520 
Z:GOTO15520 
Z:GOTO15520 
Z:GOTO15520 
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15512 
15514 
15516 
15518 
15520 
15522 
15524 
15526 
15528 
15530 
15532 
15534 
15536 
15538 
15540 
15542 
15544 

15546 

15547 

15548 
15550 
15552 
15554 
15556 
15558 
15560 
15562 
15564 
15566 
15568 
15570 
15572 
15574 
15576 
15578 
15580 
15590 
15830 
15832 


FÜR Z = 1 Tü 
FOR 2=1 Tü 
FGR Z=1 Tü 
FOR Z=1 Tü 


BK7. :PRINT 
BL7. SPRINT 
BM7. SPRINT 
BN7. SPRINT 


TAB (A) TT: PRIMI¬ 
TAD ( A )Ti: PRINT 
TAB < A)Tí:PRINT 
TAB(A)Ti:PRINT 


NEXT C,I:RETURN 
FOR 1 = 1 TÜ R7. 
FÜR C=1 Tü 7 
Tf="a ■" :Qi=' . 
GR=F17.(I ,C> 

IF 6R=41 THEN 
IF GR=42 THEN 
IF GR=43 THEN 
IF GR=44 THEN 
IF GR=45 THEN 
IF GR=46 THEN 
IF GR=47 THEN 
IF GR=48 THEN 
IF GR=49 THEN 


TAB(A)QT:NEXT 
TAB(A)Qi:NEXT 
TAB(A)Qi:NEXT 
TAB(A)üi:NEXT 


GOTO15520 
GOTO15520 
GOTO15520 


: pr i nt " • ■ 


A=6: B07.=B07.+1: F1=B07.: GOTO 15548 
A=10: BP7.--BP7.+1: F2=BP7.s GOTO 15550 
A=14: BQ7.=BQ7.+ lc F3=BQ7.s GOTO 15552 
A=18: BR7.=BR7.+ 1: F4=BR7.: GOTO 15554 
A=22: BS7.= BS7.+ 1: F5=BS7.s GOTO 15556 
A=26: BT7.=BT7.+1 : F6=BT7.: GOTO 15558 
A=3O: BU7.=BU7.+ 1: F7=BU'/.s GOTO 15560 
A=34: BV7.=BV7.+1: F8=BV7.: GOTO 15562 
A=38: BW7.=BW7.+1 : F9=BW7.: GOTO 15564 


GOTO 15566 


Z= 1 
Z = 1 
Z = 1 
Z = 1 
Z = 1 
Z = 1 
Z=1 
Z = 1 
Z= 1 


TO 

TO 

TO 

TO 

TO 

TO 

TO 

TO 

TO 


B07.: PRINT 
BP7.: PRINT 
BQ7.S PRINT 
BR7.: PRINT 
BS7. SPRINT 
BT7.S PRINT 
BU7.: PR I NT 
BV7. SPRINT 
BW7.: PRINT 


TAB(A)T^ s PRINT 
TAB(A)Ti:PRINT 
TOB(A)TisPRINT 
TAB(A)TisPRINT 
TAB(A)Ti:PRINT 
TAB(A)Ti:PRINT 
TAB(A)Ti:PRINT 
T AB (A) Ti: F’R I NT 
TAB(A)Ti:PRINT 


TAB(A)Qi:NEXT 
TAB(A)Qi:NEXT 
TAB(A)Qi:NEXT 
TAB(A)Qi:NEXT 
TAB(A)Qi:NEXT 
T AB(A)Qi:NEXT 
TAB(A)Qi:NEXT 
TAB(A)Qi:NEXT 
TAB(A)Qi:NEXT 


Z:GOTO15566 
Z:G0T015566 
Z:GOTO15566 
Z:GOTO15566 
Z:G0T015566 
Z:GOTO15566 
Z:G0T015566 
Z:GOTO15566 
Z 


FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 

NEXT C,I:RETURN 
REM ***************************** 

BA=0:BB=0:BC=0:BD=ú:BE=0:BF=Os BG=OsBH=Os BI=OsBJ=0:BK=0:BL=0:BM=0:BN=0 
B0=0:BP=0:BQ=OsBR=0:BS=OsBT=0:BU=0:BV=OsBW=0:BX=OsBY=0:BZ=0 
BA7.=0: BB7.=0: BC7.=0: BD7.=0: BE7.=0: BF7.=0: BG7.=0: BH7.=0: BI7.=0: BJ7.=0s BK7. 

BM7.=0: BN7.=0: B07.=0: BP7.=0: BQ7.=0: BR7.=0: BS7.=0: BT7.=0: BU7.=O: BV7.=0: BW7. 

RETURN 

REM ***************************** 

REM *** DIBUJO DEL GRAFICO *** 

REM ***************************** 


O: BL7.=0 
=0 


15835 

15840 

PRINT'TM. 

PRINT" 

PRINT" 

PRI NT " 

PRINT " 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 

.VECES" 


19 1 , 

II 

i jd4j 

1 C-QCA 

18 1 ‘ 

" 

1 jaj'J 

15855 

1 5860 

17 1 


16 1 _ ~ .... 

ii 

.15 1 ' * 


15865 
15870 

1 tr o "7 cr 

14 1 

ii 

131 

II 

X JO / U 

15880 

15885 

15890 

12 1 

M 

111 ' - 

II 

1 0 1 ' . • - • 

- ** II 

9 1 ' “ 


15895 

15900 

15905 
15910 
15915 

i 5920 
15925 

15930 

15935 

PRINT " 
PRINT" 

8 1 " -.. - 

" 

7 1 

" 

PRINT " 
PRINT" 
PRINT" 

PRINT " 
PRINT" 
PRINT" 

PPTMT" 

6 1 “ 

" 

51 .. ~ 


4 1 ‘ . ~ 


o* 1 ... — ... 

- 11 

2 1 • ' 


1 1 - - • . - 

- -11 

15940 

r r\ 1IM 1 



15945 
i 6000 

16010 

16020 

RETURN 

REM ***************************** 

REM SALIDA DE DATOS POR IMPRESORA 

REM ***************************** 

POR FAVOR, 


PROCESANDO DATOS" 
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1 =•. ~ PRI NT BF'T: PDKE 53280,0: POKE 53281,0: PGKE 19,1 
3=0-2 INPUT "AI4M FECHA EN DD/MM/AA > ";F$ 

=044 PRINT BP-T- 
: 5 :> 0PEN4 h 4 , O: GLOSE 4 
16 = :■ IF BT< >0 THEN 16080 
HHTO GOTO 16120 

: 5 PRINT":««««« CONECTE LA IMPRESORA Y PULSE UNA TECLA" 

U*> z VV=2 12X 256 : POKE VV+24,15: POKE W , O: POKE VV+1,80: POKE W+5,9: POKE VV+4 , O 
POKE W+4,33: FOR M=1 TO 200:NÉXTM 
=110 GET S*:IF S$=""THEN 16090 
-. ' 0PEN4,4:OPEN 3,3 

= 130 FOR Z = 1 TO 40: F’R I NT#3 , " ; : NEXT 
-s»140 PRINT#3, "4!RI« IMPRIMIENDO DATOS * ESPERE POR FAVOR" 

-130 FOR Z = 1 TO 40: PRINT#3, NEXT 

1¿ 1 - O GOSUB 19000: GOSLJB 18000: PRINT#4 , CHR* (27) "E" 


1 = 164 PRINT#4 , CHR$ (27) "G" 

1-166 PRINT#4," * NUMEROS IMPARES *" 

- - 168 PRINT#4,CHR$(27)"H" 

1-13O PRINT#4, " TOTAL DE NUMEROS IMPARES.: "NITAB (46) PA" 7." 

Ir 174 PRINT#4,CHR$ (27) "G" 

1-176 PRINT#4," * NUMEROS PARES *" 

1=178 PRINT#4,CHR*(27)"H" 

- - 190 PRINT#4 , " TOTAL DE NUMEROS PARES .: "NPTAB (46) PB" 7." 

1=194 PRINT#4,CHR$(27)"G" 

161-96 PRINT#4," * TERMINACIONES *" 

1 = 198 PRINT#4 , CHR:£ (27) "H" 

1=210 F'RINT#4 , " TOTAL DE NUMEROS TERMINADOS EN O.: " XOTAB (46) PC" 7." 

1=230 PRINT#4," TOTAL DE NUMEROS TERMINADOS EN 1 .: "X1TAB (46) PD" 7." 

16250 PRINT#4 , " TOTAL DE NUMEROS TERMINADOS EN 2.: " X2TAB (46) PE" 7," 

1=270 PRINT#4 , " TOTAL DE NUMEROS TERMINADOS EN 3 .: " X3TAB (46) PF" 7." 

1 =290 PRINT#4 , " TOTAL DE NUMEROS TERMINADOS EN 4 .: " X4TAB (46) F'G" 7." 

16310 F‘RINT#4 , " TOTAL DE NUMEROS TERMINADOS EN 5.: "X5TAB (46) PH" 7." 

16320 PRINT#4 , " TOTAL DE NUMEROS TERMINADOS EN 6.: " X6TAB (46) F‘I " 7." 

16330 PRINT#4, " TOTAL DE NUMEROS TERMINADOS EN 7.: " X7TAB (46) PJ" 7." 

16340 F'RINT#4 , " TOTAL DE NUMEROS TERMINADOS EN 8.: " X8TAB (46) PK" 7." 

16350 PRINT#4 , " TOTAL DE NUMEROS TERMINADOS EN 9.: " X9TAB (46) F‘L" 7." 

16352 PRINT#4,CHR*(27)"G" 

16354 PRINT#4," * NUMEROS POR DECENAS *" 

16356 PRINT#4,CHR*(27)"H" 

16410 PRINT#4," TOTAL DE NUMEROS DE LA PRIMERA DECENA . ..: "NITAB (46) PM" 7." 
16420 PRINT#4," TOTAL DE NUMEROS DE LA SEGUNDA DECENA . . . : "N2TAB (46) PN" 7." 

16440 PRINT#4," TOTAL DE NUMEROS DE LA TERCER DECENA_: "N3TAB (46) PO" 7." 

16460 PRINT#4," TOTAL DE NUMEROS DE LA CUARTA DECENA_: "N4TAB (46) PP" 7." 

16480 F’RINT#4, " TOTAL DE NUMEROS DE LA QUINTA DECENA-: "N5TAB (46) F'Q" 7." 

16494 PRINT#4,CHR$(27)"G" 

16496 F'RINT#4, " * FILAS HORIZONTALES *" 

16498 PR I NT#4 , CHR'Í (27) " H " 

16500 PR I NT #4 , " TOTAL DE LA PRIMERA FILA HORIZONTAL..: "L1TAB (46) PR" 7." 

16520 PRINT#4 , " TOTAL DE LA SEGUNDA FILA HORIZONTAL...: "L2TAB (46) PS" 7." 

16540 PRINT #4, " TOTAL DE L.A TERCERA FILA HORIZONTAL.: "L3TAB (46) PT" 7." 

16560 PRINT#4 , " TOTAL DE LA CUART A FILA HORIZONTAL .: "L4TAB (46) PU" .7." 

16580 F'RINT#4 , " TOTAL DE LA QUINTA FILA HORIZONTAL.: "L5TAB (46) PV" 7." 

16600 PRINT#4 , " TOTAL DE LA SEXTA FILA HORIZONTAL.: "L6TAB (46) PW" 7." 


16620 PRINT#4," TOTAL DE LA SEPTIMA FILA HORIZONTAL 
16624 F'R I NT#4 , CHRT (27) " G " 

16626 PRINT#4," * FILAS VERTICALES *" 

1 6628 PRINT#4,CHR*(27)"H" 


¡16640 
1 16660 
16680 
16700 
16720 
16740 
16760 
16764 


PRINT#4," 
PRINT#4," 

PRINT#4," 

PRINT#4," 
F’RINT#4, " 

F’R I NT#4 , " 
PRINT #4," 
PRINT#4,CHR* 


TOTAL DE LA PRIMERA COLUMNA VERTICAL. 
TOTAL. DE LA SEGUNDA COLUMNA VERTICAL 
TOTAL DE LA TERCERA COLUMNA VERTICAL 
TOTAL DE LA CUARTA COLUMNA VERTICAL . 
TOTAL. DE LA QUINTA COLUMNA VERTICAL . 
TOTAL DE LA SEXTA COLUMNA VERTICAL .. 
TOTAL DE LA SEPTIMA COLUMNA VERTICAL 
(27)"G" 


"L7TAB (46) PX" 7. 


"V1TAB (46) QA" 7." 
"V2TAB (46) QB" 7." 
" V3TAB (46) QC " 7." 
"V4TAB (46) QD" 7." 
" V5TAB (46) QE" 7." 
" V6TAB (46) QF " 7." 
" V7TAB (46) QG " 7." 
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16766 F’RINT#4 , " * MITAD DE BLOQUES *" 

16768 PRINT#4 , CHRi' (27) "H" 

16780 PRINT#4 , TOTAL NUMEROS DE LA PRIMERA MITAD 1-25 . . : " J 1TAB (46) QH" 7." 

16800 PRINT#4," TOTAL NUMEROS DE LA SEGUNDA MITAD 26- 49 . : " J2TAB (46) QI " 7." 

16810 PRI NT#4,CHR*(27) "F" 

16820 GLOSE 3 

16830 CLOSE 4:PRINT BP$:GOTO 6000 
18000 REM ***************************** 

18010 REM ** RUTINA TITULO IMPRESORA ** 

18020 REM ****************************** 

18030 : 

18040 FOR Z=1 TO 80:PRINT#4,"*";:NEXT Z 
18050 PRINT#4,CHR*<27>"E",CHR$(27)"G" 

18060 PRINT#4," DATOS ESTADISTICOS EN FECHA : "FT 

18065 PR I NT#4 , CHRT (27) " H " , CHRT- (27) " F " 

18095 PRINT#4,CHRT(27)"V",CHRT(14) 

18100 PRINT#4," * * * LOTERIA PRIMITIVA * * *"CHR$(20),CHR$(27)"V" 

18110 FOR Z —1 TO 80:PRINT#4," = NEXT Z 
18130 F’RINT#4 , CHR# (27) "E" ,CHR*(27) "G" 

18140 PRINT#4," DENOMINACION DATOS PORCENTAJE" 

18150 PEINT#4,CHR$(27)"H",CHR*(27)"F" 

18165 FOR Z-1 TO 80:PRINT#4,;:NEXT Z 
18170 RETURN 
18180 : 

19000 REM ** * *** * * ******************** * 

19010 REM *** RUTINA DE PORCENTAJES *** 

19020 REM ***************************** 

19030 K=R7.*7: L= 100 

19040 PA=INT((NI*L)/K):PB-INT((NP*L)/K):PC=INT((XÜ*L)/K):PD=INT((X1*L)/K) 

19045 PE=INT((X2*L)/K) 

19050 PF=INT(<X3*L> /TO :PG=INT((X4*L)/K>:PH=INT((X5*L)/K):PI=INT<(X6*L )/K) 

19055 PJ = 1 NT ( ( X7*L.) /K) 

19060 PK= I NT ( ( X8*L) /K) : PL= INT ( ( X9*L_) /K) : PM= I NT ( (N1 *L) /K) : PN-1NT ( (N2*L ) /K) 

19065 P0=INT <(N3*L)/K) 

19070 PP=1 NT ( (N4*L) /K) : PQ-1 NT ( (N5*L) /K ) : PR= I NT ( (L1 *L.) / K) : PS= I NT ( (L2*L) /K ) 

19075 PT=INT((L3*L)/K) 

19080 PU= I NT ( (L4*L.) /K) : PV=INT ( (L..5*L) /K) : PW=INT ( (L6*L) /K> : PX = 1NT ( <L 7*L) /K) 

19090 QA=INT((V1*L)/K):QB=INT((V2*L)/K):QC=INT((V3*L)/K>:QD=INT((V4*l )/K) 

19095 QE-INT((V5*L)/K) 

191UO QF--INT ( (V6*L) /K) : QG=INT ( (V7*L_) /K) : QH=INT ( (J 1*L) / K) : QI = INT ( (J2*L) /K) 

19110 RETURN 

25000 REM ***************************** 

25010 REM *** RUTINA DE TEXTOS *** 

25020 REM ***************************** 

25030 : 

25050 A*=" PULSA ' M ' PARA MENU DE DATOS * " 

25060 X=LEN(At) 

25070 pr i nt " 11 

25080 Bí=RIGHTT(Aí,X)+LEFT*(A*,1):PRINT"C"MIDt (B$ ,1,40)" ] ":Aí=B^ 

25090 FOR Z=0 TO 50:NEXT Z:RETURN 
25100 REM ****************************** 

30000 REM ***************************** 

30010 REM *** RUTINA DE TEXTOS *** 

30020 REM ***************************** 

30030 : 

30050 A$=" PULSA ' M ' MENU ' G ' GRAFICO *" 

30060 X=LEN(A*> 

30070 pr i nt 1 1 

3008U B$-=RIGHT$ (A* , X ) +LEFT $ (At, 1 ) : PRINT" C "MID$ (BS- 1 40) " 3 " : A^=B4'- 

30090 FOR Z=0 TO 50:NEXT Z:RETURN 

30100 REM ****************************** 

READY. 
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Programas 


Looping Ball 



O 

V^doric Benavent Mateu, nos 
r - . a desde Barcelona un nuevo 
o de aventuras, donde los re- 
■fjos hacen el papel más impor- 
=ite en la acción. Empezaréis en 
e nivel 3, y si tenéis manitas de 
: ata podréis llegar al nivel 10, es 
^ecir, al final de la aventura. Bre- 
e explicación de algunas de las 
• ariables a modificar. 

MNS Contiene el nombre del au¬ 
tor del récord de presen¬ 
tación. 

VP Contiene el récord de pun¬ 
tuación. 

VI Contiene las vidas del jue¬ 

go. Son 3. 

PU Contiene la puntuación 

que al final será multipli¬ 
cada por 100. 

FO Es el número de pixel que 
el sprite recorre en cada 
pulsación. 

PA Informa del nivel donde se 

está jugando. 

Tl$ Está preparado para que 

se esté 20 segundos en 
cada pantalla. 

F Es una de las posiciones 

del sprite. 

BA Contiene el valor que hace 

desplazar la pantalla. Las 
demás variables no son de 
gran importancia. 

El joystik va conectado en el port 2. 


Estructura 

0-22 Rutina CM., scroll de 

pantalla. 

23-31 Carga sprite. 

34-49 Presentación. 

50-61 Nivel 1. 

62-70 Nivel 2. 

71-79 Nivel 3. 

80-88 Nivel 4. 


89-98 

Nivel 5. 

99-110 

Nivel 6. 

111-120 

Nivel 7. 

121-128 

Nivel 8. 

129-140 

Nivel 9. 

141-155 

Nivel 10. 

156-158 

Rutina de fallo. 

159-172 

Rutina de vidas y re¬ 
greso a la pantalla. 

173-181 

Rutina de fin juego. 

182-187 

Control aleatorio de 
la pantalla izq., der. 


188-193 Rutina ganador. 

194-230 Generador de carac¬ 
teres. 

231-235 Animación del fallo 
del sprite. 

236-241 Colores de la presen¬ 
tación. 

242 Asigna récord. 

243-245 Control mediante el 

joystik del sprite. 

246-253 Efectos de color y 
música. 
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0 REM COPYRIGHT OSC AND ATG 281086 

1 MNT="QSC":VP=21000:V=53248:BA=49152 

2 PÜKE53265,PEEK(53265)AND239 

3 POR 1=0X0142:READA:P0KE49152+1,A:NEXT 

4 PQKE53280,O:P0KE53231,0:POKEV+21,O 

5 DATA169,0,133,251,169,4,133,252 

6 DATA169,0,133,254,160,0,177,251 

7 DATA133,253,160,1,177,251,136,145 

8 DATA251,200,200,192,40,208,245,160 

9 DATA39,165,253,145,251,165,251,105 

10 DATA39,133,251,144,2,230,252,230 

11 DAIA254,166,254,224,25,208,2*3,96 

12 DATA169,19,32,210,255,169,17,32 

13 DAT A210,255,169,157,32,210,255,169 

14 DATA148,32,210,255,169,160,133,218 

15 DATA 169,13,32,210,255,96,169,0 

16 DATA133,251,169,4,133,252,169,O 

17 DATA133,254,160,39,177,251,133,253 

18 DATA 160,38,177,251,200,145,251,136 

19 DATA136,192,255,208,245,160,0,165 

20 DATA253,145,251,165,251,105,39,133 

21 DATA251,144,2,230,252,230,254,166 

22 DATA254,224,25,208,213,96,255 

23 FORT=12288T012350:READQ:POKET,Q:NEXT 

24 DATAO,170,0,2,150,128,10,105,160 

25 DATA9,170,96,39,170,152,26,151,228 

26 DATA42,111,248,169,175,250,166,175 

27 DATA250,154,159,246,106,107,233,169 

28 DATA170,106,166,170,154,154,150,166 

29 DATA106,105,170,41,170,104,38,170 

30 DATA152,26,150,164,1O,105,160,1,170 

31 DATA64,0,170,0 

32 6ÜSUB197 

33 PÜKE53270,200:P0KE53265,PEEK(53265)ORI6 ( 

35 PRINT" MINMHIHIPLiSñ FUEGO" 

36 PEI NT" nniWniMIHDES IGNADO " 

37 PR I NT " " 

38 PR I NT " MHNIIHIIDDDR IC BENAVENT 

39 PR I NT " nmanWiHíECORD: " ; MNÍ; " " ; VP 

40 11-PEEK (56320) = 111THEN42 

41 G0SUB236:G0TD40 

42 F'RIÑT" HUBlilINSTRUCC IONES" 

43 F'RINT"«MMkJDEBES LLEVAR TU BOLA POR LOS LABERINTOS 

44 PRINT"«B1EMF'RE TOCANDO LA RAYA,CUANDO NO LA TO- 

45 F'RINT"QUES PERDERAS UNA VIDA, TIENES 3 VIDAS, 

46 PRINT"*PERO NO TE FIES DEMASIADO EN EL NIVEL 3, 

47 F'RINT ‘MIW7IGILA LOS CAMBIOS DE SENT IDO, CONECTA «EL JOYSTIK EN F'ORT 2 

48 PRINT"«BRF'ULSA UNA TECLA PARA CONTINUAR 

49 GETAÍ-: IFA$=” "THEN49 

50 POKEV+21,7:PQKE53270,200 

51 P0KE53270,1:P0KE2040,192:P0KE2041,192:P0KE2042,192:P0KEV+40,2:POKEV+41,2 

52 PA=1:PQKEV+28,7:POKEV+37,5:PÜKEV+38,1:POKEV+39,2:POKEV+O,165 

53 POKEV+1,180:F=160 

54 G0SUB246 

55 print" «i. rx . rx . rx . «i.rx . rx . rx . rx . rx . rx .. w.. w.. . 

56 PQKEV+ 1 , 160: POKEV+2,255: F'OKEV+3,50: F'OKEV+4,225: POKEV+5,50: F'U= 1 

57 G0SUB243 

58 IFTIT="000020"THEN62 

59 F'U=PU+1:F0=5 

60 IFPEEK< 53279 > =OTHEN156 

61 SYS49152:GÜT057 
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tx . tx . tx . tx . ti . bu . bl . :bl 

¡POKEV+4,225:POKEV+5,50 


n . ti . ti . tx . n . ai . ai . w..ai 


62 Fü=5:F'A=2:G0SUB246 

63 POKEV+O,165 

64 PQKEV+i,160:F=160 

65 print" .. ai. ai. tx . ti . tx . ai. ai. ai. tx 

66 POKEV+1,160:F'OKEV+2,255:F'OKEV+3,50: 

67 IFTI í-= " 000020" THENG0TQ71 

68 F'U-PU+1: G0SUB243 

69 IFPEEK(53279)=OTHEN156 

70 SYS49238:G0T067 

71 F'A=3: G0SUB246 

72 POKEV+O,165 

73 POKEV+1,160:F=160 

74 print" .. ai. ai. tx . ti . tx . ai. ai. ai. tx 

75 FÜRA=0TÜ10:G0SUB243:FQ=5 

76 I FT I $=" 000020 " THEN80 

77 PU=F'U+1 

78 IFPEEK(53279)=OTHEN156 

79 F0RX=0TQ5:NEXT:SYSBA:NEXT:GQSUB182:G0T075 

80 PA=4:GDSUB246 

81 POKEV+O,165 

82 PQKEV+1,160:F=160 

83 PRINT" Bl BU al. BU BU BU BU BU BU BU TI. TI. TI. TI. TX TI. . TI TI TX . . . BU Bl. al. al. al. TX H. 

84 I FT I ■$■= " 000020 " THEN89 

85 F0=7:G0SUB243 

86 F'U=PU+1 

87 I FF'EEK (53279) =OTHEN 156 

88 SYS49152:G0T084 

89 PA=5:GQSUB246:Fü=7 

90 POKEV+O,120:BA=49152 

91 POKEV+1,150:F=150 

92 PRINT" . , TX TX TX TI TX TX BU BU BU BU BU BU BU BU BU BU BU BU BU BU BU BU H. TI. 

93 I FT I >= " 000010 " T H E N B A=49238 

94 I FT I-T-- "000020 " THEN99 

95 PU=PU+1:G0SUB243 

96 IFF'EEK (53279) =OTHEN 156 

97 SYSBA 

98 80T093 

99 PA=ó:G0SUB246 

100 POKEV+O ,155: BA==49152 

101 PQKEV+1,160:F=165:F0=8 

102 PRI NT” . . TI TI T1 TL TI TX Bl BU BU BU BU BU BU BU Bl. BU BU BU BU BU BU 

103 605UB243 

104 I FT I $■ >= "000005 " THEMBA=49238 

105 IFT I '$■ > = "000010" THENBA=49152 

106 I FT I $■ >= " 000015" THENB A==4923S 

107 IFTIT="000020"THEN111 

108 PU=F'U+1 


109 I FF'EEK (53279) = O THEN 156 

110 SYSBA:GOTO103 

111 F'A=7: G0SUB246 

112 POKEV+O,165:F0=8 

113 POKEV+1,160:F=160 

114 PRINT". BU . TX . TX . TX . Bl . BU . BU . TX . TI . T1 . TX . TL . TX . BL . BU . BU . BU . . Bl 

115 PRINT".BL . TX . TX . TX . BU . BU . BL . TI . TX . TL . TI . TX . TX . BU . BU . BL . BU . . Bl 

116 F0RA=0T012 

117 IFTI#="000025"THEN121 

118 F'U=F'U+1: G0SUB243 

119 I FF'EEK (53279) =OTHEN 156 

120 SYSBA:NEXT:G0SUB182:G0T0116 

121 F'A=8: G0SUB246 

122 POKEV+O,165 

123 POKEV+1,160:F=160:F0=8 
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124 print ".. al . al . :t . rx . n. . al . al . al . n. . n. . ri. ri. n.. n.. al . al . al . al ■.. ai 

125 F0RK=0T020:GQSUB243 

126 PU=PU+1: IFTI $= 000020 " THEN129 

127 IFPEEK(53279)=OTHEN156 

128 SYSBA:NEXT:GOSUB182:GOTO125 

129 PA=9s G0SUB246 

130 PQKEV+O,165 

131 POKEV+1,160:F=160 

132 print" ... WL. . n . n . n , w.. w.. dl . n.. n.. n . n.. n . n . w. -- w. - w. - - w 

133 PRINT"» 

134 print" .. al . al . ri. n.. ri. al . a.. al . ^ . n.. ri. n.. ri. ri. al . al . al . al .. ai 

135 PRINT" WU' 

136 F0RK—0T030 

137 IFTI*="000020"THEN141 

138 PU=PU+1:GÜSUB243 

139 IFPEEK(53279)-OTHEN156 

140 SYSBA:NEXT:GÜSUB182:GOTO136 

141 PA=10:GQSUB246 

142 PÜKEV+0,165 

143 PGKEV+1,160:F =160 

144 PRINT" AMuM»' 

145 PRINT"AT 


146 

PRINT". . 

. U 

ai . n . t. 

. n 

- Al . 

. AL 

a n n n.. n . n 

. n 

AL Al 

AL 

AL 

Al 

147 

PRINT"W 












148 

PRINT". 

Al 

. ai n.. n. 

n. 

. Al 

AL 

. :w..n.n..n..n..rv 

n 

. AL . Al 

. Al 

Al 

Al 

149 

PRINT" 

Al 

Al . 2L n 

n 

. AL 

AL 

m . n . n.. n n . n 

n 

AL . Al 

Al 

. AL . 

Al 


150 PRINT" W 

151 FGRK=0TÜ2 

152 I FT I ■$-" 000025 " THEN 188 

153 FU=PU+1:GÜSUB243 

154 IFPEEK(53279)=OTHEN156 

155 SYSBA:NEXT:GOSUB182:GOTO151 

156 GÜSUB231:F0RL=54272T054296:PQKEL,0:NEXT 

157 P0KE54296,15:P0KE54277,90:P0KE54276,33 

158 P"ÜRA= 100T00STEP—2: P0KE54272 , A: PÜKE54273 , A: NEXT 

159 VI=VI-1 

160 IFVI=2THENPGKE V+21,3 

161 IFVI=1THENPOKEV+21,1 

162 IFVI=0THENPOKEV+21,O:GOTO174 

163 IFPA=1THEN52 

164 IFPA=2THEN62 

165 IFPA=3THEN71 

166 IFPA=4THEN80 

167 IFPA=5THEN89 

168 IFPA-6THEN99 

169 IFPA=7THEN111 

170 IFPA=8THEN121 

171 IFPA=9THEN129 

172 IJ-’P A= 1OTHEN141 

173 F r üRA=OTO 1000: NEXT 

175 F0RL—54272T054296:POKEL,O:NEXT:P0KE54278,190:P0KE54277,90:P0KE54278,190 

176 P0KE54276,33:P0KE54296,15:F0RA=155T00STEP--5:P0KE54272,A:P0KE54273,A:NEXT 
177. LETH=PU*100sFÜRA=0T0HSTEP+1000 

179 F0RA=0T01000:NEXT 

180 IFH>=VPTHEN242 

181 F0RL=0T01000:NEXT:G0T034 

182 M0=INT(4*RND(4)) 
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183 IFMG«1THENBA«49152 

184 IFM0«2THENBA«49238 

185 IF M G=0 T H E N B A == 49238 

186 IFMD=3THENBA*49152 

187 RETURN 

189 F'R INT" W PERO SEGURO QUE NOS VEREMOS LAS CARAS 

190 PRINT"M DE NUEVO EN LOOPING BAL II":FÜRA-0TÜ1500:NEXT 

191 LETH-PU*100:F0RA=0T0HSTEP+1000 

193 G0T0242 

194 F0RL=54272T054296:POKEL,O:NEXT:P0KE54278,190:P0KE54277,90:P0KE5427B,190 

195 PQKE54276,33:P0KE54296,15 

196 FORA=ÜTÜ1O:FORB=1OOTOOSTEP-1:P0KE54272,B:P0KE54273,B:NEXT:NEXT 

197 AA=14336:BB—53248:CC=56334 

190 POKECC,PEEK<CC)AND254:PÜKE1,PEEK(1)AND251:F0RJ-0T02047:POKEAA+J,PEEK(BB+J): 

199 NEXTJ s PÜKE1,PEEK(1)ÜR4:POKECC,PEEK(CC)OR1:P0KE53272,31 

200 FOR J = 14336T014551:READQ:POKEJ,Q:NEXT 

201 FOR J«1 4704TCJ14711: READQ: POKEJ , Q: NEXT 

202 DATA126,129,157,161,161,157,129,126 

203 DAT A30,33,33,63,33,33,33,O 

204 DATA60,34,34,60,34,33,62,0 

205 DATA31 ,-32,32,32,32,32,31, O 

206 DATA60,34,33,33,33,34,60,O 

207 DATA63,32,32,60,32,32,63,O 

208 DATA63,32,32,60,32,32,32,O 

209 DATA63,32,32,39,33,33,63,O 

210 DATA33,33,33,63,33,33,33,O 

211 DATA4,4,4,4,4,4,4,O 

212 DATA1,1,1,1,33,33,30,O 

213 DATA33,34,36,56,36,34,33,O 

214 DATA32,32,32,32,32,32,63,O 

215 DATA33,51,45,33,33,33,33,O 

216 DATA33,49,41,37,35,33,33,O 

217 DATA63,33,33,33,33,33,63,O 

218 DATA63,33,33,33,63,32,32,O 

219 DATA63,33,33,33,33,57,63,3 

220 DATA63,33,33,63,36,34,33,O 

221 DAT A63,32,32,63,1,1,63,O 

222 DATA63,4,4,4,4,4,4,O 

223 DA IA33,33,33,33,33,33,63,O 

224 DATA33,33,33,18,18,18,12,O 

225 DATA65,65,65,65,34,42,20,O 

226 DATA33,33,18,12,12,18,33,O 

227 DATA33,33,18,18,12,4,4,O 

228 DATA63,1,2,4,8,16,63,O 

229 DATA126,129,165,189,189,153,129,126 

230 RETURN 

231 P0KEV+23,1:G0SUB235:PÜKEV+29,1:G0SUB235:POKEV+23,O:GÜSUB235:POKEV+29,O 

232 A=0 

233 A=A+1:PÜKEV+39,A:IFA>15THENPQKEV+39,2:RETURN 

234 GÜTQ233 

235 F0RAS=ÜT050:NEXT:RETURN 

236 AD=INT(RND(1)*15) 

237 F0RA=55701T055728:POKEA,AD:NEXT 

238 FGRB=55789T055800: F’OKEB , AD+1 : NEXT 

239 F0RC-55869TQ55878:POKEC,AD:NEXT 

240 F0RD=55950TÜ55955:POKED,AD+1:NEXT 

241 F0RE=56105T056132:POKEE,AD:NE X T:RETURN 
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242 P0KE53270,200: INPUT ,, r»W«iW«flIi!WflHftENTRA TUS INICIALES" ; MN*: VF-H: G0T034 

243 IFPEEK(56320)=125THENF=F+F0:POKEV+1,F:RETURN 

244 IFPEEK(56320)=126THENF=F-F0:POKEV+1,F:RETURN 

245 RETURN 

246 PRI NT " , IVEL " ; PA 

247 A—1: F0RZ=0T015sFGRDA=56232T056248sG0SUB252:POKEDA,A:NEXTsNEXTZ 

248 pr i NT" 1 : t i t= u oooooo " 

249 F0RL=54272T054296:POKEL,OsNEXT:P0KE54278,190:P0KE54277,90:PGKE54278,190 

250 PÜKE54276,33:P0KE54296,15:F0RK=0T070STEP+5:P0KE54272,KsPÜKE54273,K:NEXT 

251 F üRK=7O TOOSTEP—5:P0KE54272,K:P0KE54273,K:NEXT:RETURN 

252 A=A+1:IFA>=15THENA=1 

253 RETURN 


READY. 




i@© ®[ 

L W& 


!® V ÍML 


Cómo se ve 

Como se teclea 

Efecto conseguido 

Cómo se ve 

Cómo se teclea 

Efecto conseguido 

Colores del VIC-20 y del 64 


Códigos de cursor y control 


■ 

Ctrl +1 

Negro 

ii 

Home 

Cursor a casa 


Ctrl+ 2 

Blanco 

3 

Shift + home 

Limpia pantalla 

ral 

Ctrl+ 3 

Rojo 

n 

Crsr 

Cursor derecha 

k. 

Ctrl+ 4 

Cian 

ii 

Shift+crsr 

Cursor izquierda 

i 

Ctrl+ 5 

Púrpura 

:« 

Crsr 

Cursor abajo 

ir 

Ctrl+ 6 

Verde 

3 

Shift + crsr 

Cursor arriba 

kb 

a 

Ctrl+ 7 

Azul 

SI 

Ctrl+9 

Carácter inverso 

m 

Ctrl+ 8 

Amarillo 

m 

Ctrl + 0 

Carácter normal 




ll 

Del 

Borrar 

Colores del 64 solamente 


II 

Shift + del 

Insertar 


Cbm + 1 

Naranja 




R 

Cbm + 2 

Marrón 

Teclas de función 


& 

Cbm+3 

Rosa 

■ 

F1 


SO 

Cbm + 4 

Gris oscuro 

31 

F2 = Shift + F1 


:a 

Cbm+5 

Gris medio 

■ 

F3 


ai 

Cbm+6 

Verde claro 

12 

F4 = Shift + F3 


ni 

Cbm+7 

Azul claro 

II 

F5 


■■ 

■ a 

Cbm+8 

Gris claro 

Si 

F6 = Shift + F5 





II 

F7 





■ 

F8 = Shift + F7 
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TT^’rTr, 


nmodore 

MaJgjzzlnjeJ 


modor 


Londres: 
Quinta Feria 
j Cnmmodore 


r JZgjúL2L 


K»nii%H Ac SUnai^Am-n 

VUELA CON TU C 64 


Prograrr 

aplicad^ 


Núm. 8 

Joystick y Paddle para to¬ 
dos. Misterio del BASIC. 
EL LOGO. Cálculo finan¬ 
ciero. Programas. 


Núm. 15 

Síntesis de voz: su orde¬ 
nador tiene la palabra. Pi- 
lot: un lenguaje de alto ni¬ 
vel (2. a parte). Guía de 
software para C-64 (2. a 
parte). 


mas: juegos y aplicacio¬ 
nes veraniegos. ¡Canas¬ 
ta!: dos ases del balon¬ 
cesto para el C-64. 


Núm. 5 

Programas, juegos y con¬ 
curso/Londres: Quinta fe¬ 
ria de Commodore/Basic, 
versión 4 75. 


Núm. 19 

Análisis de cuatro impre¬ 
soras. Simulación: pe¬ 
queños mundos en su or¬ 
denador. Pascal (2. a par¬ 
te). Entombedy The Staff 
of Karnath: aventuras grá¬ 
ficas y mucha acción. 


Núm. 9 

Conversión de programas 
del Vic-20 al C-64. Mónta¬ 
le un paddle. Identifica tus 
errores. Software comen¬ 
tado. 


Núm. 16 

Análisis de simuladores: 
vuela con tu C-64. Conta¬ 
bilidad para pequeños 
negocios. Cómo acelerar 
la ejecución de gráficos 
en BASIC. Submarino 
Commander. Pilot un len¬ 
guaje de alto nivel (3. a 
parte). 


Núm. 13 

Análisis: programas de 
ajedrez. Los Cazafantas- 
mas, 64. Vic en el espacio. 
La impresora que dibuja. 
Interface paralelo. 


Núm. 6 

El misterio del Basic/Lá¬ 
pices ópticos para todos/ 
Concurso, juegos, aplica¬ 
ciones. 


Núm. 10 

Koala Pad: La potencia de 
un paquete gráfico. Tru¬ 
cos. El FORTH. Software 
comentado. EL LOGO. 


Núm. 7 

El ordenador virtuoso. 
MusiCalc. Programa mo¬ 
nitor para el 64. Lápices 
ópticos. Ampliación de 
memoria para Vic-20. 


(1. a parte). Cómo guarda 
el diskette la información. 
Sintetizador-64. El Forth 
(1. a parte). 


Núm. 21 

Video-Digitizer: visión a* 
tifícial para Commodorr 
Seikosha GP 700 V C: ur i 
impresora a todo colof 
con capacidades gré‘ - 
cas. Sprites multicolo r es 
El nuevo C-128. 


Núm. 12 

Commodore-16 por den¬ 
tro y por fuera. Sprites: los 
alegres duendecillos (1. a 
parte). Supervivencia (1. a 
parte). El Forth (y 3. a par¬ 
te). 


Núm. 18 

Practícale: todo el poder 
de una hoja electrónica. 
Pascal (1 . a parte). Progra- 






































































DE EJEMPLARES ATRASADOS 

Complete su colección de COMMODORE MAGAZINE 
A continuación le resumimos el contenido de los ejemplares aparecidos hasta ahora. 



€<*ja ée 




Núm. 32 

Gráficos en el Vic-20, C- 
64 y C-128. Hablemos de 
ordenadores o de cómo 
conseguir que no nos en¬ 
tienda nadie. Compati¬ 
bles: fenómeno importan¬ 
te en el mundo de la m¡- 
croinformática profesio¬ 
nal. 


Núm. 27 

Inteligencia Artificial: los 
lenguajes expertos. Sis¬ 
temas de numeración: bi¬ 
nario y hexadecimal. Co¬ 
mandos de disco C-128. 
Ficheros secuenciales. 
Libros, juegos y trucos. 


Núm. 24 

El ordenador en la ense¬ 
ñanza. ADA para Commo- 
dore. El C-128 en fotos. 
Los peques y el ordena¬ 
dor. Seikosha Sp-1000 
VC. Investigación sobre el 
sonido. 


Ruego me envíen al precio de 300 ptas. los siguientes ejemplares atrasados de COMMODORE 

MAGAZINE___ 

El importe lo abonaré 


Contra reembolso □ Cheque adjunto □ Con mi tarjeta de crédito □ American Express 


□ Visa □ Interbank 


Fecha de caducidad 


NOMBRE 


DIRECCION 


POBLACION 


PROVINCIA 


: : gramas lightning: grá- 
xs profesionales a tu 
i ranee. Montaje: un inte- 
~-otor programable para 
r ‘-64. Sprites múltiples. 
I :«mo graba los datos el 
:^* 2 ssette. 


Núm. 25 

Los ports: conexiones al 
exterior. El BASIC del C- 
128 Matemáticas por or¬ 
denador. Software edu¬ 
cativo. Melodías musica¬ 
les del Solfeo al Basic. 


Núm. 29 

Piratas: problemas y le¬ 
gislación entorno a este 
tema. Backups: comenta¬ 
rio del cartucho «Freeze 
Frame» y del Interface 
«Cosmos’ Thoug». Intro¬ 
ducción al PC de Commo- 
dore. Los juegos de Lucas 
Film. 


Núm. 28 

Robótica: evolución de la 
robótica y las posibilida¬ 
des técnicas de los Ro¬ 
bots. MECOMO: el brazo 
Robot. Mapa de memoria 
del C-128. Nuevas profe¬ 
siones. 


are i 

'/l£j 


cugjazl 




«•o**** 


«sepa m 
mammítí C tM 


mmm 


Hotxmv 
software, trines 


Num. 23 

Sinfonías en Chip: sínte¬ 
sis de sonido. Sprites en 
movimiento. Paisajes 
ir actales en tu Commodo- 
r e. Código máquina. Sight 
and sound: cuatro maes¬ 
tros de la música. Galería 
de Software: los mejores 
orogramas analizados en 
profundidad. 


los pe* 
me , 
vienen 


fyt&GiA 


mi 


Núm. 31 

La Magia del Amiga: pri¬ 
meras impresiones y po¬ 
sibilidades que este micro 
puede ofrecernos. Los 
periféricos que vienen. 
Mutaciones de personali¬ 
dad. 


Núm. 33 

Reportaje fotográfico so¬ 
bre la nueva imagen del 
C-64. Ofimática: la utili¬ 
dad de los ordenadores 
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finales de los setenta, Den- 
nis Ritchie diseñó en los labora¬ 
torios BELL un lenguaje de pro¬ 
gramación llamado C. Sus ideas 
principales hay que buscarlas en 
el BCPL, un lenguaje pionero en 
la técnica de programación es¬ 
tructurada (y del cual existe ac¬ 
tualmente una versión para el 
QL). Del BCPL nació el B, y en 
este último se inspiró el C. 

C Y UNIX 

C se diseñó para un sistema 
operativo llamado UNIX, uno de 
los más potentes y usados hoy 
día. Un sistema operativo no es 
más que una colección de progra¬ 
mas que controlan al ordenador y 
lo preparan para que podamos 
utilizarlo Estos programas esta- 



— El C ofrece 
una estructura 

libre que permite 
al programador 
trabajar «a su 
aire». 


ban y están en las versiones más 
recientes de UNIX, escritos en C. 
Debido a esta aplicación, se pien¬ 
sa del C que es un lenguaje muy 
especializado y orientado hacia la 
escritura de estos complicados 
sistemas operativos. Sin embar¬ 
go, la realidad es otra, el C es un 
lenguaje de objetivo general, es 
decir, igualmente sin/e para reali¬ 
zar programas extremadamente 
simples, que se utiliza en la crea¬ 
ción y desarrollo de complicados 
paquetes (programas combina¬ 
dos de uso específico). Con C se 
realizan infinidad de programas, 
desde tratamientos de textos, a 
programas de cálculos numéri¬ 
cos, cubriendo entre ambos un 
amplio campo de utilidades. De 
hecho, ésta es la principal cuali¬ 
dad del C, su gran versatilidad, es 
un lenguaje todo-terreno. 
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COMO ES 

C es un lenguaje compilado, 
esto quiere decir que primero he¬ 
mos de escribir nuestro programa 
C, como si fuera un texto, y a con¬ 
tinuación un programa llamado 
compilador se encargará de tra¬ 
ducirlo y darnos un programa en 
código máquina que es la versión 
que podremos ejecutar. Tiene mu¬ 
chas similitudes con el Pascal, 
pero su estructuración no es tan 
rígida como la de éste. Permite 
una mayor libertad del programa¬ 
dor a la hora de desarrollar la se¬ 
cuencia de instrucciones. C es un 
lenguaje conciso, no tiene gran 
cantidad de sentencias, se podría 
decir que tiene las justas. Puede 
manejar toma de decisiones (IF- 
ELSE), puede controlar lazos con 


■ — El método de 

programación en 
C es tan simple 
como en BASIC. 


condiciones (FOR, WHILE, DO), 
puede ejecutar sentencias selec¬ 
tivamente, dependiendo del valor 
de una variable (SWITCH), y poco 
más. Trabaja con diversos tipos 
de variables que han de ser de¬ 
clarados, para cada variable que 
vayamos a utilizar hay que espe¬ 
cificar su tipo (enteras, caracte¬ 
res, doble precisión, etc.). 

¿Y ESTO ES TODO? 

Por lo visto hasta ahora, no pa¬ 
rece que el C sea nada del otro 
mundo. Además, hay que decir 
que tampoco tiene sentencias 
propias de entrada y salida, ni de 
manejo de ficheros, ni ninguna 
función (p. ej. no tiene OPEN#, 
CLOSE#, CAT#, SIN, EXP, CHR$, 
etc.). Ahora parece estar peor que 
antes, pero no es así. Todas es¬ 
tas características que parecen 
defectos, en realidad son virtu¬ 
des, como vamos a ver. El tener 
un número pequeño de senten¬ 


cias tiene dos ventajas, primero, 
el lenguaje es breve, y por tanto 
más fácil de aprender y manejar. 
Además, su programa compilador 
es muy reducido y por lo tanto 
ocupa poca memoria. Este aspec¬ 
to resulta fundamental en los sis¬ 
temas que deben mantener el 
programa escrito y el compilador, 
a la vez en memoria, para poder 
compilarlo (los miniordenadores). 

LAS LIBRERIAS DEL C 

¿Y qué pasa con las órdenes de 
E/S, manejo de ficheros y las fun¬ 
ciones? No hay ningún problema. 
Todas las versiones del C vienen 
acompañadas de una librería es¬ 
tándar de funciones. En esta li¬ 
brería están contenidas todas 
aquellas funciones que podemos 
necesitar en nuestros programas 
y que el C no tiene como propias. 
Es como una guía de teléfono, 
nadie aprende todos los números 
de teléfonos de la ciudad; cuan¬ 
do es necesario saber alguno, 
simplemente va a la guía y allí lo 
consulta. Todas estas funciones 


están escritas en el propio len¬ 
guaje, por lo tanto se pueden leer 
y corregir para que funcionen a 
nuestro gusto, son como rutinas 
creadas por otro programador 
que nosotros queremos adaptar a 
nuestras necesidades. Así, cuan¬ 
do necesitamos alguna función 
de la librería, simplemente se es¬ 
cribe su nombre en el programa, 
como si fuese una instrucción 
más. El compilador se encargará 

■ — El C es un 

lenguaje 
«todo-terreno». 


de incluir todo el texto de la fun¬ 
ción en nuestro programa, para 
después compilarlo todo junto. 
Además, el C no sólo dispone de 
la librería estándar, también pue¬ 
de acceder a las librerías de fun¬ 
ciones de otros lenguajes. 

Por lo visto hasta este momen¬ 
to, parece haber un empate entre 
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PROGRAMAS EJEMPLO 

Veamos cómo sería, en 


C: 

BASIC y en C, un programa 
que acepte por teclado una 


mai n () 

cadena de sólo 10 carac¬ 



teres. 


char aC 10]; 

BASIC: 


int n,c; 

for (n=0;n< 10; ++n ) 

10 DIM A*(10) 

20 FOR N=1 TO 10 


í 

c-getchar(); 
aCn]=c; 

30 GET Z % :IF Z*<>" 

" THEN GOTO 30 

> 

40 GET 2$ :IF Z*=" n 

THEN GOTO 40 

aC 101= ' \0 '; 

50 A*(N)=Z* 


> 

60 NEXT N 
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Ahora un programa que 
calcula el factorial de un 
número. Se puede apreciar 
que el C y el PASCAL tie¬ 
nen muchas similitudes. El 
programa en C puede utili¬ 
zarse también como una 
función para otros progra¬ 
mas. 


PASCAL: 



program factorial (input,output); 


var factorial 


integer; 
integer; 


end. 


i (n) ; 

-vorial := 1; 
nile n > O do 
begi n 

factorial := factorial * n; 
n : = n - 1 

end; 

write('el factorial de', n : 5, 'es: 


factorial) 


factorial(n) 
int n;' 

int c; 

int factorial; 
factorial = 1; 
for(c=2;c<n+l^++c) 

í 

factorial=factorial*c; 

P r i n tf (“el factorial de 7 .lOd es: 7.1Qd \n", n, factorial); 


J 
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Ahora veamos la creación 
de la función parte entera 
de forma artesana. El ejem¬ 
plo en C puede ser almace¬ 


nado en una librería, para 
utilizarse en otros progra¬ 
mas que requieran esa fun¬ 
ción. 


C: 

ent(n) 
f1oat n; 


BASIC: 

10 INPUT A 

20 IF A >0 THEN GOTO 60 
30 FOR N=0 TD A-l STEP-1 
40 IF A>N AND A<=N+1 


50 NEXT N 

60 FGR N=0 TO A+l 

70 IF A>=N AND A<N+1 

80 NEXT N 

85 STOP 

90 PRINT ENT 

100 GOTO10 


THEN ENT=N+1 :GOTO 90 

THEN ENT=N :GOTO 90 

> 


int c; 
c=0; 
i -f (n<0) 
í 

. while(c>n && n<c+l) 
—c; 

> 

el se 
{. 

while(c<n && n>c+l) 
++c; 

y 

return(c) 
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el C y los demás lenguajes más 
conocidos. Hacen más o menos 
las mismas cosas y funcionan 
más o menos igual. Para romper 
el empate vamos a compararlos 
con el C. El COBOL y el FOR¬ 
TRAN son dos lenguajes fuerte¬ 
mente especializados. Surgieron 
de problemas muy concretos (la 
gestión de datos comerciales y el 
trabajo con complicadas fórmu¬ 
las numéricas), ambos tienen 
unas estructuras muy rígidas, es 
decir, deben utilizarse en una for¬ 
ma muy concreta. Ambos tienen 
una cantidad enorme de coman¬ 
dos, uno para cada posible nece¬ 
sidad de cada campo de aplica¬ 
ción. Frente a ellos el C ofrece 
una estructura libre que permite 
al programador trabajar «a su 
aire». Es mucho más fácil de 
aprender, por su corto número de 
sentencias. Y ofrece todas las 
funciones que tienen estos len¬ 
guajes, pues como vimos tiene 
acceso a sus librerías. Así el C 
hace todo lo que estos lenguajes 
de una forma más simple. 

FRENTE AL BASIC 

Los anteriores eran lenguajes 
mono-propósito, con un único 
campo de aplicación. Veamos 
cómo es el lenguaje multi-propó- 
sito por excelencia, el BASIC. 
Puede realizar cálculos matemáti¬ 
cos y puede manejar información 
alfanumérica. Puede controlar fi¬ 
cheros y puede dibujar gráficas, 
parece ser el lenguaje universal. 
Pero su capacidad de cálculo y 
manejo de información tienen un 
límite. Además suele ser un len¬ 
guaje interpretado, el programa 
escrito reside en memoria y para 
ejecutarlo, el procesador va tradu¬ 
ciendo cada sentencia del progra¬ 
ma, como un intérprete de idio¬ 
mas, según van llegando a ella. 
Esto ocasiona un problema de 
memoria que limita la extensión 
de los programas que pueden 
realizarse. Por el contrario el C 
con su pequeño tamaño permite 
realizar largos programas. Dispo¬ 



ne de las funciones necesarias 
para el objetivo del programa, sa¬ 
cadas de su librería o de las libre¬ 
rías de otros lenguajes. Además 
el método de programación es 
tan simple como en BASIC, y es¬ 
tructurada. Pero presenta una 
ventaja adicional, surgida del ma¬ 
yor defecto del BASIC. C sólo hay 
uno, con más o menos funciones 
en sus librerías, pero sólo uno. Un 
programa C funciona igual en to¬ 
dos los ordenadores que tengan 
un compilador de C. Sin embar- 


■ — C es breve, 

pocas sentencias 
que aprender y 
manejar. 


go, del BASIC hay mil y una ver¬ 
siones diferentes, casi tantas 
como modelos de ordenadores 
hay. Así, hay que escribir nuevas 
versiones de nuestros programas, 
si nos decidimos a cambiar de 
ordenador. 

CONCLUSION 

Comparar el C con el PASCAL 
no resolverá ninguna duda. Real¬ 


mente son dos lenguajes casi 
idénticos, tienen el mismo aspec¬ 
to y funcionan de forma parecida. 
El PASCAL parece un hermano 
mayor del C, más serio, más rígi¬ 
do, más estructural, de mayor ni¬ 
vel. El C como hermano menor es 
más libre, más corto, menos es¬ 
tructurado, más cerca de la má¬ 
quina. Son similares, ambos hijos 
de una misma madre, la última o 
penúltima generación de lengua¬ 
jes de programación, por eso sus 
cualidades son parecidas. Resu¬ 
miendo, el C es un lenguaje cor¬ 
to, con pocas sentencias que 
aprender y un compilador que 
ocupa poca memoria. Al ser tan 
corto no es nada especializado, lo 
cual le permite trabajar en cual¬ 
quier campo, verdaderamente 
multipropósito. Con una estructu¬ 
ra no rígida, fácil de manejar. Con 
unas posibilidades muy amplias 
gracias a sus librerías de funcio¬ 
nes. Y es completamente están¬ 
dar, un programa C funciona en 
cualquier ordenador que soporte 
el lenguaje. 

EXITO DEL C 

Un lenguaje puede ser potente 
pero arduo de utilizar (p. ej. EN¬ 
SAMBLADOR). Puede ser especí¬ 
fico, pero exigir una gran discipli¬ 
na a la hora de escribir los pro¬ 
gramas (p. ej. COBOL). Y sin em¬ 
bargo estos dos lenguajes son 
ampliamente utilizados, a pesar 
de sus defectos. El éxito de un 
lenguaje no se mide en su poten¬ 
cia, ni en su idoneidad para un 
trabajo. Lenguajes existen mu¬ 
chos, lenguajes aceptados univer¬ 
salmente, muy pocos. ¿Cuál es la 
clave del éxito? Esa clave se en¬ 
cuentra en el programador; si se 
siente cómodo con un lenguaje, 
ese lenguaje ha triunfado. El C es 
uno de esos lenguajes. El progra¬ 
mador se siente muy cómodo tra¬ 
bajando en C. Puede hacer de él 
lo que quiera, hay total libertad. 
Desde usarlo como un BASIC o 
un PASCAL (con sus funciones), 
hasta hacer de él un semi-ensam- 
blador. 
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RITO Y BAJO NIVEL 

El C sólo exige definir los tipos 
de las variables que vamos a uti- 
izar en nuestro programa. A par¬ 
tir de ahí todo es libre. Sólo tene¬ 
mos que escribir nuestro progra¬ 
ma. Podemos ir llamando a las 
funciones que necesitamos, el 
compilador se encargará de mon¬ 
tarlas en nuestro programa. Aho¬ 
ra estamos trabajando lejos de la 
máquina, en alto nivel. También 
podemos, al crear nuestro progra¬ 
ma, ir creando nuestras propias 
funciones. Crear nuestras entra¬ 
das y salidas, las peticiones de 
datos, las funciones de cadenas 
de caracteres, y las matemáticas. 
Así creamos nuestra librería de 
funciones, que podemos ir am¬ 
pliando y utilizarla en otros pro¬ 
gramas. Estamos trabajando cer¬ 


ca de la máquina, haciéndola bai¬ 
lar a nuestro aire, trabajamos en 
bajo nivel. 

A NUESTRO AIRE 

Se puede personalizar el len¬ 
guaje. Incluso crear un nuevo 

I — Un programa 
C funciona en 
todos los 
ordenadores que 
tengan un 
compilador C. 

sublenguaje que nos guste más, 
todo ello a base de crear rutinas 
de funciones, que serán los co¬ 
mandos del nuevo dialecto. Esta 


es la gran cualidad del C, su liber¬ 
tad. Podemos llegar a dominar la 
máquina, sin demasiadas compli¬ 
caciones, y con pocas instruccio¬ 
nes que aprender. El C ofrece mu¬ 
cho y no pide demasiado. Si te 
gusta programar, te encantará. 

Joaquín Mateos Lago 
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O que pudiera resolverlo. La sor- backtracking. Este problema es 
cho damas en un tablero presa habrá sido grande al notar exactamente el mismo. Cada 
de ajedrez, sin poderse comer que pocas cosas son tan senci- «paso» es en este caos una rei- 
unas a otras. Probablemente, Mas de programar en BASIC co- na colocada, y el algoritmo que 
frente a este problema, que pro- mo la solución a este problema, usamos es entonces el de supo- 
pusimos la semana pasada, al- En poco más de 15 líneas pode- ner que una dama está correcta- 
gunos habrán mirado un tablero mos hacer que el Commodore dé mente colocada y probar enton- 
de ajedrez, y tras unos pocos e una o todas las soluciones posi- ces la siguiente, 
infructuosos intentos habrán de- bles al problema. ¿Cómo? Em- La primera reina la colocare- 
sistido y habrán considerado co- pleando una vez más la recursi- mos en la primera columna y en 
mo imposible la solución, o, vidad. Al igual que antes, cuan- cualquier fila, digamos por ejem- 
cuando menos, harto complica- do resolvíamos el laberinto, ca- pío, la primera. A partir de aquí, 
da. Quizás, otros más tenaces da paso lo suponíamos válido veo si es atacada por alguien 
hayan encontrado la solución a hasta que o bien encontrábamos (que evidentemente en el caso 
mano, poniendo una y otra vez la solución o bien encontrába- de ser la primera dama es impo¬ 
las damas hasta encontrarla. Y, mos el camino cortado, en cuyo sible), y si no lo es, pruebo otra 
posiblemente, algunos pocos caso deberíamos volver para nueva reina en la columna si- 
hayan intentado y conseguido atrás, y probar soluciones dife- guíente, en este caso las dos. 
hacer un programa de ordenador rentes, en lo que llamábamos Nuevamente volveríamos a ha- 
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cer lo mismo, comprobaría has¬ 
ta encontrar una fila donde la da¬ 
ma. no es atacada y posterior¬ 
mente se llamaría otra vez a sí 
misma intentando colocar otra 
dama en una nueva columna. ¿Y 
si no es posible poner la dama 
en ninguna fila sin que sea ata¬ 
cada? Pues eso significa que al¬ 
guna de las damas anteriores es¬ 
tá mal puesta, de forma que vol¬ 
vemos a la dama anterior y la 
movemos de sitio hasta encon¬ 
trar una nueva posición donde 
no sea atacada y podamos con¬ 
tinuar hacia adelante. Vamos a 
ver cómo funciona con un ejem¬ 
plo gráfico. 

La figura 1 tiene la primera da¬ 
ma colocada en la primera fila y 
en la primera columna. La segun¬ 
da dama empezaríamos colocán¬ 
dola tal como muestra la figura 
2 . 

Pero no es válida ya que está 
frente a la primera. Seguimos 
moviendo la dama como mues¬ 
tra la figura 3 hasta que en la fi¬ 
gura 4 encontramos una posible 
posición. Volvemos a hacer lo 
mismo con la siguiente dama 
hasta que llegamos a la figura 5, 
en que no existe ninguna fila, 
dentro de la columna 6, que sea 
una posición válida. Aplicamos 
entonces el backtracking, y vol¬ 
vemos hacia atrás con la dama 
anterior, y la colocamos tal y co¬ 
mo muestra la figura 6. Si tam¬ 
poco es válido, iríamos hacia 
atrás hasta encontrar una dama 
con la que podamos continuar 
adelante. El proceso acaba 
cuando conseguimos llegar a la 
octava fila y colocar la dama en 
una posición aceptable. El pro¬ 
grama que aparece listado hace 
exactamente eso, y en la instruc¬ 
ción número 20 es donde coloca 
la primera dama. Si queréis que 
esa primera dama esté en una 
posición distinta de la primera fi¬ 
la, sólo tenéis que modificar esa 
instrucción. Cada caso tiene un 
tiempo de búsqueda distinto, y si 
queréis sacar todas las solucio¬ 
nes que existen, cambiar el STOP 


de la línea 500 por k = k-1:RE- 
TURN. 

Para aquellos que consideren 
interesante este tipo de proble¬ 
mas, pueden intentar este otro 
también muy clásico. Consiste 
en recorrer, desde la casilla de la 
primera fila y la primera colum¬ 
na, todas y cada una de las 64 
casillas que componen un table¬ 
ro de ajedrez, con un caballo, pa¬ 
sando una sola vez por cada si¬ 
tio. Se basa en todo lo que he¬ 
mos comentado anteriormente, y 
es casi más fácil que el proble¬ 
ma de las ocho damas. 

LOS AUTOMATAS QUE SE 
REPRODUCEN 

Vamos a hacer un alto mo¬ 
mentáneo en nuestra carrera por 
la consecución de la inteligencia 
artificial y vamos a tocar un te¬ 
ma que no por menos en boga, 
resulta menos interesante que el 
anterior: se trata de la reproduc¬ 
ción de los ordenadores. Dicho 
así, suena realmente a utópico el 
pensar que un ordenador pueda 
reproducirse, pero la realidad es 
que en los primeros años, en que 
se desarrollaron los ordenadores 
y las actuales teorías de la com¬ 
putación, uno de los temas que 
primero se tocó fue precisamen¬ 
te el de la posibilidad de que un 
ordenador reprodujera su propia 
configuración. Los primeros es¬ 
tudios de esos sistemas los ini¬ 
ciaron en la década de los cin¬ 
cuenta John Von Neumann (pro¬ 
bablemente el padre de los orde¬ 
nadores actuales) y Stanislaw 
Ulam, e intentaron recoger una 
serie de reglas para establecer 
cómo debería comportarse lo 
que se llamó autómatas celula¬ 
res. Von Neumann pudo demos¬ 
trar que sí existen configuracio¬ 
nes autoreproductivas, demos¬ 
trando que existe un constructor 
universal capaz de crear cual¬ 
quier configuración, y capaz, por 
consiguiente, de crear la corres¬ 
pondiente a sí mismo. Pero no¬ 
sotros no vamos a estudiar ese 
sistema, ya que, entre otras co¬ 


sas, exige unas 200.000 casillas 
y cada una de esas 29 estados. 
Para aclararnos en eso de los 
sistemas y de las casillas, va¬ 
mos a ver unos casos mucho 
más sencillos, en donde el nú¬ 
mero de estados que tiene cada 
autómata es de únicamente dos, 
pongamos de 0 y 1 (a modo de 
bits), y donde las reglas serán 
bastante simples. 

Vamos a representar nuestro 
universo como un gran plano de 
casillas cuadradas, dentro de las 
cuales sólo puede haber una úni¬ 
ca «célula», bien viva o bien 
muerta. En cierto lugar de ese 
universo existen un número de 
células dispuestas de alguna 
manera, una «colonia». Todas es¬ 
tas células viven un cierto perío¬ 
do de tiempo, pero en la genera¬ 
ción siguiente, sólo permanece¬ 
rán vivas aquellas que estén ro¬ 
deadas por un número impar de 
células, mientras que si el núme¬ 
ro es par, mueren. De igual ma¬ 
nera funcionarán las casillas va¬ 
cías. Si están rodeadas de una o 
tres células vivas, en la siguien¬ 
te generación aparecerá una 
nueva célula en esa casilla. Por 
ahora sólo consideraremos las 
casillas que están arriba, abajo 
y en los lados, y prescindiremos 
de las diagonales. Pues bien, es¬ 
to que en principio parece que 
generará colonias más o menos 
de formas aleatorias, e incluso 
se podría pensar que acabarían 
desapareciendo, resulta que con 
estas reglas, todas las colonias 
quedan repartidas, exactamente 
igual, pasadas una serie de ge¬ 
neraciones. La más simple de to¬ 
das las colonias es una única cé¬ 
lula. En la generación siguiente, 
las cuatro células que están or¬ 
togonales a ella aparecerán vi¬ 
vas, con lo cual la colonia origen 
se repite desde la primera gene¬ 
ración. Pero podéis pensar en 
colonias todo lo complicadas 
que queráis, que al final vuelven 
a aparecer, y además cuatro de 
ellas dispuestas simétricamente 
respecto a los ejes. Pensad en 
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5. a Generación 


esa colonia de células como si 
fuera un ser formado por n célu¬ 
las, digamos un ser mecánico, 
con capacidad de reproducir su 
elemento mecánico más simple, 
la «célula», y que obedeciera a 
esas leyes de reproducción de 
sus elementos más simples. En 
un período de tiempo finito aca¬ 
baría haciendo cuatro ejempla¬ 
res exactamente igual que él. 

No sólo en el campo de la fic¬ 
ción tienen este tipo de proble¬ 
mas aplicación, sino que mu¬ 
chas veces se pueden simular 
casos reales con este tipo de sis¬ 


temas, cada uno con unas reglas 
diferentes. Un caso muy bonito 
lo forman las moléculas de vapor 
de agua y hielo que existen en la 
atmósfera. Cuando están juntos 
ambos elementos y existe posi¬ 
bilidad de que se forme nieve, ca¬ 
da copo va conformándose con 
unas reglas parecidas a las que 
hemos visto, y las «células» son, 
en este caso, moléculas de 
agua, y existen en este caso dos 
tipos de «celólas» las de vapor 
de agua y las de hielo. Ambos ti¬ 
pos tienen unos enlaces de for¬ 
ma que podemos simularlas co¬ 


mo celdillas de panal, ya que son 
hexagonales, como las figuras 
de un panal de abeja o los pun¬ 
tos de los balones de fútbol. To¬ 
das están rodeadas de una serie 
de moléculas de vapor y de hie¬ 
lo, y si el número de moléculas 
de hielo que las rodea es impar 
acaban helándose. Hecho esto 
por ordenador, y reproduciendo 
las moléculas de vapor en rojo y 
las de hielo en azul, podemos re¬ 
producir la creación de un copo 
de hielo a partir de una configu¬ 
ración que nosotros demos. Y 
aunque parezca mentira, el copo 
de hielo que se os funde en la 
mano cuando os cae en ella es 
de una belleza increíble a los 
ojos de un microscopio. Si lo¬ 
gráis coger uno y que no se os 
licué, cuando le obervéis al mi- 
c r ^noo¡o, pensad que ese copo 
es único, como las obras de ar¬ 
te, ya que nunca hay dos iguales. 
Cada uno tiene la forma que le 
confiere la colonia que lo gene¬ 
ró. Resulta muy curioso realizar 
esto con un ordenador, y en el 
listado de la figura 1 podéis com¬ 
probarlo vosotros mismos. En to¬ 
das las figuras que vosotros in¬ 
troduzcáis las sucesivas genera¬ 
ciones que se producen van dan¬ 
do lugar a una floresta de célu¬ 
las que adquieren las formas 
más variopintas, a modo de un 
caleidoscopio. Si tenéis suficien¬ 
te imaginación, podéis incluso 
crear dos colonias, una de tibu¬ 
rones y otra de peces, y podéis 
ver cómo evolucionan los dos 
bancos de peces y tiburones, 
donde las reglas serán las que 
decidan el futuro de vuestro mar. 

Sobre los «juegos de la vida», 
sin duda el más famoso es el de 
John Horton Conway, de la Uni¬ 
versidad de Cambridge, presen¬ 
tado por Martin Gardneren 1970, 
en Scientific American. 

En este caso, el objeto del jue¬ 
go no es que el sistema se auto- 
reproduzca, sino generar la má¬ 
xima cantidad de pautas, o de 
configuraciones posibles, para 
que sea imposible adivinar si 
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acabarán muriéndose o perma¬ 
necerán como una floreciente 
especie en el mundo de los autó¬ 
matas celulares. Las reglas son, 
en este caso, algo más difíciles 
de llevar a la programación, pe¬ 
ro no exigen demasiado. En es¬ 
te caso, en lugar de tener en 
cuenta únicamente las células 
ortogonales, es decir, las de arri¬ 
ba, los lados etc., se consideran 
también las diagonales, lo que 
da lugar, muchas veces, a que 
aparezcan «ramas» que se ex¬ 
tienden en la pantalla y bifurca¬ 
ciones en esas direcciones dia¬ 
gonales. Las reglas son como si¬ 
guen. Si una célula está viva, só¬ 
lo podrá seguir viviendo si tiene 


dos o tres vecinas vivas. Si el nú¬ 
mero de células que le rodea es 
menor, la célula está aislada, no 
puede reproducirse y muere. Pe¬ 
ro si el número es mayor, existe 
una superpoblación, y el alimen¬ 
to no es suficiente, con lo que 
muere irremediablemente. Cuan¬ 
do la célula está muerta, o, lo 
que es lo mismo, la casilla está 
vacía, sólo puede volver a la vi¬ 
da si tiene exactamente tres cé¬ 
lulas vivas a su alrededor. Tam¬ 
bién es repetitivo, pero no apare¬ 
cen cada número fijo de genera¬ 
ciones. En la figura 2 está el pro¬ 
grama que simula estos ejem¬ 
plos, aunque es susceptible de 
mejora si se desea seguir real¬ 


mente a la colonia durante un 
gran número de generaciones, 
ya que entonces deberemos rea¬ 
lizarlo en alta resolución. Si sois 
capaces de llevar a la práctica 
todo un mundo de marcianos en 
algún lejano planeta donde cada 
tipo de marciano llevase un co¬ 
lor, podréis crear unas figuras 
realmente artísticas, que se van 
alargando como hongos o que 
desaparecen después de una flo¬ 
reciente población. Basta con 
dejar volar la imaginación... y al 
Commodore. 


Alejandro de Mora Losana 


10 DIM V<9) 

20 V(l)=l 


30 K 

■•--.O 


100 

1F K=9 THEN BOSUB 300 :END 


110 

POR M=1 TO 8 


120 

GOSUB 200 


130 

IF BOOL=1 THEN V(K)=M :K=K+1 :GOSUB 100 :K=K-1 :M=V(K> 

140 

NEXT M 


150 

RETURN 


200 

BQ0L=1 


210 

FOR 1=1 TO K—l 


220 

IF V(I)=M OR ABS(V(I)—M)=ABS(K—I) THEN B00L=0 

:RETURN 

230 

NEXT I 


240 

RETURN 


300 

DIM A(8,8) 


310 

FOR 1=1 TO 8 : A(J(I),I)=1 : NEXT I 


320 

FOR 1=1 TO 8 : FOR J=1 TO 8 


330 

PRINT A(I,J);; 


340 

NEXT J : PRINT 


350 

NEXT I 


360 

RETURN 



Este programa no funciona en tu Commodore, pues no dispone éste de suficiente 
pila de direcciones, para poder comprobar su funcionamiento puedes utilizar 
cualquier otro ordenador (Amstrad, Spectrum, MSX, etc...) 


1 P0KE53280,0 : P0KE53281,0 

5 PRINT "¡T; 


10 

DIM A(24,39) 


20 

DIM B(24,39) 



COMMODORE MAGAZINE • 57 




29 REM **** FIGURA EN MATRIZ A **** 

30 A <12,19)=1 
40 A(12,20)=1 
50 A(12,21)=1 
60 A(11,19)=1 
70 A(13,19)=1 

79 REM **** LIMITES A MIRAR F/C *** 

SO NF=10 :AF=14 
90 IC=18 :AC—22 

99 REM ** PINTA 1EXP GENERACION *** 

100 GOSUB 2000 

199 REM * CALCULA GENERACION EN B * 

500 POR I~NF TO AF 
510 POR J=IC TO AC 

520 SU=A(I-1,J)+A(1+1,J)+A(I, J- 1> +A(I,J + l) 

530 IF SU=1 OR SU=3 THEN B(I,J)=1 

540 IF SU=2 OR SU=4 OR SU=0 THEN B(I,J)=0 

550 NEXT J 

560 NEXT I 

599 REM ** PASA MATRIZ A HACIA B ** 

600 FOR I=NF TO AF 
610 FOR J = IC TO AC 
620 A(I,J)=B(I,J) 

650 NEXT J 

660 NEXT I 

670 NF=NF-1 :AF=AF+1 :IC=IC-1 :AC-AC+1 

699 REM **** AMPLIAMOS LIMITES **** 

700 GOSUB 2000 

799 REM **** NUEVA GENERASIONE *•**•* 

800 IF NF>0 AND AF<25 AND IC>0 AND AC<40 THEN GOTO 500 
S99 REM ** MIRA LIMITES PANTALLA •** 

1000 END 

1999 REM *** PINTA GENERACIONES *** 

2000 FOR N=NF TO AF 
2010 FOR M=1 TO 39 

2012 NUM=983+N*40+M:N2=NUM+54272 

2015 IF A(N,M)=1 THEN POKE NUM,S1:P0KE N2,7 

2020 IF A(N,M)=0 THEN POKE NUM,32:P0KE N2,0 

2030 NEXT M 

2040 NEXT N 

2050 RETURN 

Programa número 1 


1 POKE5328O,O:P0KE53281,O 
5 PRINT "ZJ'; 

10 DIM A(24,39) 

20 DIM B(24,39) 

29 REM **** FIGURA EN MATRIZ A **** 
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30 A (1.1, 19) =1 
40 A(11,20)=1 
50 A(11,21)=1 

60 A(12,19)=1 

61 A(12,20)=1 

62 A(12,21)=1 

70 A(13,19)=1 

71 A C13,20)—1 

72 A (13,21) = 1 

79 REM **** LIMITES A MIRAR F/C *** 

SO NF=10 :AF=14 
90 IC “18 : AC=22 

99 REM ** PINTA 1EXP GENERACION *** 

100 GOSUB 2000 

199 REM * CALCULA GENERACION EN B * 

500 FOR I=NF TO AF 

510 FOR J==IC TO AC 

520 B1 = A (I --1 , J ) + A (I +1 , J ) +A (I , J -1 ) + A (I , J +1) 

521 S2=A(I—1,J—1)+A(I—1,J+1)+A(I+1,J—1)+A(I+l,J+i) 

522 SU=S1+S2 

530 IF SU=2 OR SÜ=3 AND A(I,J)=0 THEN B(I,J)=1 

531 IF SU=1 OR SU=4 AND A(I,J)=0 THEN B(I,J)=0 

540 IF SU=3 AND A(I,J)=1 THEN B(I,J)=1 

541 IF SLJ~ 1 OR SU=2 OR SU=4 AND A(I,J)=1 THEN B (I , J) =D 
550 NEXT ,J 

560 NEXT I 

599 REM ** PASA MATRIZ A HACIA B ** 

600 FOR I=NF TO AF 

610 FOR J=IC TO AC 

620 A(I,J)=B(I,J) 

650 NEXT J 

660 NEXT I 

670 NF=NF—1 :AF-AF+1 :IC=IC-1 :AC=AC+1 
699 REM **** AMPLIAMOS LIMITES **** 

7 O O G ü S U B 2 O O O 

799 REM **** NUEVA GENERACIONE ***♦ 

800 IF NF>0 AND AF<25 AND IC>0 AND AC<40 THEN GOTO 500 
899 REM ** MIRA LIMITES PANTALLA ** 

1000 END 

1999 REM *** PINTA GENERACIONES *•*•* 

2000 FOR N=NF T'O AF 
2010 FOR M=1 TO 39 

2012 NUM=9S3+N*40+M:N2=NUM+54272 

2015 l'F A (N , M) = 1 THEN POKE NUM,81:P0KE N2,7 

2020 IF A(N,M)=0 THEN POKE NUM,32:POKE N2,O 

2030 NEXT M 

2040 NEXT N 

2050 RETURN 

Programa número 2 


COMMODORE MAGAZINE • 59 





Podrá parecer una perogrullada para muchos de los 
lectores, pero, probablemente resulte operativo refrescar 
algún concepto sobre la eficacia del llamado «Octavo Bit», 
que tantos sinsabores suele causar a los usuarios finales de 
una configuración estándar de un ordenador y 
una impresora. Ese bit que puede provocar el que una 
impresora no funcione como nosotros quisiéramos. 


Los secretos 
del 


Octavo 



c 

womo es sabido, todos los or¬ 
denadores, sea cual sea su mar¬ 
ca, para obtener una eficacia real 
en su acción técnica, suelen ir au¬ 
nados a una impresora. Entre am¬ 
bos existe un canal de comunica¬ 
ción, generalmente estandarizado 
a través de una salida en serie, 
RS232, una salida Paralelo-Cen- 
tronics, u otras alternativas me¬ 
nos conocidas, que no vienen 
ahora al caso. 

Deteniéndonos un momento, al 
observar los gráficos que acom¬ 
pañan a este artículo, podremos 
recordar que si se genera un tex¬ 
to en las zonas de memoria del 
ordenador, se producirá un espe¬ 
cial almacenamiento de datos 
que serán los que el ordenador 
envíe a la impresora. 


La unidad informática por exce¬ 
lencia es el byte, formada por 8 
bit, mínimas determinaciones di¬ 
gitales binarias, que, operando 
bajo combinaciones de 0 y 1, 
construyen los elementos consti¬ 
tutivos formales de cualquier re¬ 
presentación binaria que compor¬ 
te un estado lógico; susceptible 
de ser manifestado gráficamente, 
vía pantalla o impresora. En nues¬ 
tro caso, la actividad del octavo 
bit la cifraremos en su versión a 
impresora, dada la importancia 
que, últimamente, han adquirido 
los programas y aplicaciones que 
exigen una importante resolución 
gráfica. Además, dependerá de 
que hayamos codificado bien ese 
bit para poderle sacar el mejor 
rendimiento a nuestras máqui¬ 
nas. 

Como se ha aceptado general¬ 
mente, esas combinaciones de 0 
y 1, en bloques de 8 dígitos (y 
bajo una estructura lógica prede¬ 
terminada), constituyeron el códi¬ 
go internacional ASCII (American 
Standard Code for Information ln- 
terchage). (Ver cuadro 1). A través 
de su uso, se podía transmitir, en 
forma binaria absolutamente es¬ 
tructurada, toda la información 














Tabla 1. Código ASCII. 




Cuadro 2.0. Caracteres con el 8.° bit a 0. Cuadro 2.1. Caracteres con el 8.° bit a 1. 


que el ordenador remitiría a la im¬ 
presora. En ciertos aspectos, re¬ 
sulta indiferente el hecho de que 
las impresoras sean matriciales 
(de agujas), de margarita o láser. 
Lo que sí hay que tener presente 
es que cada impresora tiene su 
CPU y sus memorias con una la¬ 
bor muy concreta, una tarea fija 
«de propósito dedicado», a saber 
reconocer y dar salida a los ca¬ 
racteres enviados, sean para pro¬ 
ducir simbolismos y signos gráfi¬ 
cos, o bien, espacios en blanco, 
órdenes para la acción carry re- 
turn, Une feed, etc. En estos últi¬ 
mos casos, por abuso de lengua¬ 
je, se les ha considerado caracte¬ 
res aunque, propiamente hablan¬ 
do no lo son, sino que codifican 
un movimiento, ejecutan un con¬ 
trol de los movimientos de la im¬ 
presora. Esto es muy importante 
en el tema que nos ocupa, ya que 
se certifica que existen informa¬ 
ciones «no visibles», caracteres 
«colaboradores», en la transmi¬ 
sión de datos desde el ordenador 
a la impresora. 

Haciendo historia, en los ini¬ 
cios de la definición de los carac¬ 
teres ASCII, se observó que no 
era absolutamente necesario que 
el ordenador enviase a la impre¬ 
sora los ocho bits de cada byte: 
bastaba con utilizar siete para po¬ 
der representar todos los caracte¬ 
res ASCII. A la hora de escribir en 
inglés, la estructura ASCII era 
operativa con sólo siete bits, de 
manera que el octavo sobraba: 
podía indicarse en él un 1 o un 0, 
indiferentemente. De hecho, así 
se hizo —dejando absoluta liber¬ 
tad de definición a ese octavo 
bit— hasta que empezaron a sur¬ 
gir problemas con la irrupción de 
culturas distintas a la norteame¬ 
ricana en el entorno informático. 

Como es sabido, el inglés ex¬ 
cluye de su simbología gráfica 
toda una serie de signos como 
son la letra ñ, la apertura de ad¬ 
miración y la de interrogación y 
los acentos, así como incluye en 
su repertorio un peculiar uso de 
las comillas. Asimismo, signos 
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FF 


7F 


3F 1F 0F 07 j03 0 


SECUENCIA COMPLETA PARA REPRESENTAR UN TRIANGULO 
USANDO EL 02 BIT 


ESC 

K 

CUENTA 

IB 

40 

0 

0 


FF 

7F 

3F 

IF 

0F 

07 

03 

01 


(Entrada en modo 
gráfico) 


(secuencia) 


Tabla 3. Representación de un triángulo. 


como *, $, &, entre otros, eran de 
escaso uso en países que no fue¬ 
sen del área ¡diomática de in¬ 
fluencia anglosajona. 

En ese momento, fue cuando 
empezó a hacerse patente la efi¬ 
cacia del octavo bit. Respetando 
los siete que conforman la estruc¬ 
tura internacional ASCII, pero, a 
la vez, dándole una función espe¬ 
cífica al bit libre, se podían variar 
los contenidos alfabéticos, numé¬ 
ricos o simbólicos propios del es¬ 
quema preestablecido. Con la li¬ 


bre disposición de ese bit ciego, 
no operativo hasta que se le indi¬ 
que lo contrario, los fabricantes 
poseen una herramienta útilísima 
a la hora de plegar la relación or¬ 
denador-impresora a sus deseos; 
pero, al mismo tiempo —y como 
es harto frecuente— la utilización 
libre del octavo bit ha supuesto 
un paso más (tal vez, de los más 
importantes y definitorios) dentro 
de la «babelización», de la cere¬ 
monia de la confusión que se 
está dando en el mundo informá¬ 


tico. La libre disposición de ese 
bit ha sido una de las fuentes 
más relevantes en el espinoso 
asunto de las incompatibilidades 
entre equipos de fabricantes dis¬ 
tintos. 

Volvamos a la historia. Los 
creadores del ASCII informaron al 
mundo de que había un bit libre 
que podía ser programado y acti¬ 
vado a gusto del usuario. La pro¬ 
liferación de vocabularios infor¬ 
máticos, de simbologías locales, 
provocaría fenómenos tan defini¬ 
tivos como el que un usuario fi¬ 
nal que tuviese una unidad cen¬ 
tral de fabricación norteamerica¬ 
na, un teclado francés, una impre¬ 
sora japonesa y un software es¬ 
pañol estuviese en un permanen¬ 
te estado de «neurosis informáti¬ 
ca»... El problema se puede sos¬ 
layar a base de realizar un correc¬ 
to tratamiento de los switches de 
la impresora (generalmente, los 
manuales pueden ser bastante 
clarificadores al respecto), y una 
reprogramación que incluya la 
función deseada para ese octavo 
bit, de cara a su adecuación a los 
símbolos que ocupan el teclado 
en uso. 

Una de las funciones operati¬ 
vas más importantes y definito- 
rias del papel que juega el octa¬ 
vo bit activo, se da cuando se tra¬ 
baja en modo gráfico. 

En cualquier caso —y a despe¬ 
cho de lo enunciado en el título 
del artículo—, el famoso octavo 
bit es el menos secreto de todos 
los componentes de una familia 
byte, ya que se le utiliza, por ac¬ 
tiva o por pasiva, para crear cual¬ 
quier tipo de construcción origi¬ 
nal que se salga de los tipos es¬ 
tandarizados del ASCII. En manos 
del fabricante y del usuario final 
está la última palabra. 

EJEMPLO: GENERACION 
DE UN TRIANGULO 

Supongamos que el usuario fi¬ 
nal de una configuración están¬ 
dar (ordenador-i- impresora) de¬ 
sea generar una figura geométri- 
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ca que no existe en el repertorio 
de caracteres que ofrece el ASCII 
(y que, por tanto, no es reconoci¬ 
do por su impresora y no la emi¬ 
te, o, como mucho, la imprime in¬ 
completa o defectuosamente). 
Elijamos un modelo cualquiera. 
Por ejemplo, un triángulo. Viendo 
el grafismo incorporado en la Ta¬ 
bla 3, podemos ver que está for¬ 
mado por ocho columnas y ocho 
filas, en orden decreciente (al ob¬ 
servar el resultado en el papel de 
la impresora, con una sencilla 
lupa advertiríamos su estructura, 
la huella que cada pulso de las 
agujas han dejado sobre el pa¬ 
pel). 

Jugando con la ya citada orden 
«escape», indicando nuestro de¬ 
seo de entrar en «modo gráfico», 
tenemos una posibilidad radical 
de utilizar la eficacia del octavo 
bit. Como de costumbre, el fabri¬ 
cante nos indicará cuál es la me¬ 
cánica o proceso para acceder al 
modo gráfico. En este caso, ha¬ 
biendo utilizado una de las infor¬ 
maciones más vulgarizadas, tene¬ 
mos que la orden de acceso al 
modo gráfico nos viene dada por 
las órdenes IB y 4B (véase gráfi¬ 
co adjunto). Asimismo, debere¬ 
mos precisar cuál es la longitud 
de ese grafismo que deseamos 
realizar —en este caso un trián¬ 
gulo—, para determinar el volu¬ 
men de su presencia en el texto 
a emitir. Por ello, tendremos que 
indicar la cuenta de los bytes que 
deberán enviarse para cerrar la 
secuencia que hemos elegido. El 
triángulo escogido cuenta con 
ocho pulsaciones de impresora 
—valga la expresión— de altura 
y, a su vez, su base también está 
formada por ocho puntos. De ahí 
que la tercera orden que deba¬ 
mos remitir a la impresora sea 80 
(conceptuada bajo el espacio 
«cuenta» en la tabla anexa al 
ejemplo). 

Todo lo anterior equivale a de¬ 
cir que, durante ocho bytes, nues¬ 
tra impresora va a estar trabajan¬ 
do en modo gráfico, pero que, 
transcurrida esta secuencia, vol¬ 


verá a su modo normal, recupe¬ 
rando su régimen habitual de ac¬ 
tividad. 

Nuestro deseo, en este ejem¬ 
plo, era determinar la figura de un 
triángulo de ocho puntos de lado 
(aunque, geométricamente ha¬ 
blando, no resulte muy ortodoxa 
esta definición...). El primer paso, 
obviamente, sería determinar su 
altura. Si observamos el diseño 
adjunto, exige ocho pulsaciones, 
o, lo que es lo mismo, ocho cer¬ 
tificaciones de bits activos. Con 


los siete utilizados en las configu¬ 
raciones normales ASCII no nos 
sería suficiente. Hay que recurrir 
al octavo bit... 

En el ejemplo que hemos ad¬ 
juntado, siguiendo las normas 
que exige el correcto uso de las 
alternativas que el bit libre nos 
ofrece, se presenta la secuencia 
completa para representar esta fi¬ 
gura geométrica, de acuerdo a 
nuestra voluntad, una vez que 
tengamos a la impresora en 
modo gráfico. 
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Rutinas en código 
máquina 

P: Mi problema consiste en que 
no sé dónde tengo que colocar las 
rutinas en código máquina que sa¬ 
len en las revistas para que, a la 
hora de utilizarlas desde mis pro¬ 
gramas escritos en BASIC, no se 
pierdan y alteren el funcionamiento 
de éstos. 

También quisiera saber cuánto es¬ 
pacio es posible tener en memoria 
reservado para las rutinas en códi¬ 
go máquina y, si no es posible, qué 
tengo que hacer yo para reservar 
ese espacio. 

Adolfo de Blas 
Madrid 

R: El mejor lugar para colocar las rutinas en 
código máquina en la memoria de tu Com- 
modore se encuentra en la zona comprendi¬ 
da entre $C000 y $CFFF, suponiendo que és¬ 
tas ocupen menos de 4 KBytes. Pues en ese 
caso sería necesario preparar una zona de 
memoria de forma que los programas Basic 
no tengan permitido el paso. 

El final ae la memoria reservada para los 
programas Basic se encuentra en $9FFF y no¬ 
sotros podemos cambiarlo por una rutina de 
la KERNAL llamada MEMTOP o mediante 
unas instrucciones Basic. 

Estas son las instrucciones. 

POKE5U 
POKE 52,H 
POKE 55,L 
POKE, 56,H 
CLR 

La H es el Byte alto y la L el Byte bajo de 
la nueva dirección del final de memoria. 

Por ejemplo, si deseas reservar una direc¬ 
ción de memoria desde la $9000 hasta 
$9FFF. Para tus programas en lenguaje má¬ 
quina tienes que utilizar las siguientes ins¬ 
trucciones. 

POKE 51,0 
POKE 52,144 
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POKE 55,0 
POKE 56,144 
CLR 

SCROLL 


P: ¡Hola! Os escribo con el pro¬ 
pósito de que me respondáis a es¬ 
tas dos preguntas. 

1) ¿Qué es el SCROLL? 

2) ¿Cómo se puede hacer? 

David Rincón 
Barcelona 

R: (1) Un SCROLL es un desplazamien¬ 
to del contenido de la pantalla en cualquie¬ 
ra de las cuatro direcciones básicas (arri¬ 
ba, abajo, derecha e izquierda). Se utili¬ 
za muy frecuentemente en los juegos don¬ 
de el escenario de acción es más grande 
que la pantalla. 

(2) En los desplazamientos de pantalla 
or Scroll, normalmente lo primero que se 
ace es reducir la pantalla a 38 columnas 
o 25 líneas, según sea la dirección elegi¬ 
da. Esto se consigue POKEando las direc¬ 
ciones 53270 ó 53265. La reducción de 
pantalla es necesaria, pues en un Scroll, 
en cada desplazamiento de 8 bits, se in¬ 
serta una nueva línea o columna aue en el 
caso de estar reducida la pantalla no es 
apreciada por nosotros. 

La explicación no es más profunda, pues 
consideramos, que para realizar un Scroll, 
es necesario que tengas unos conocimien¬ 
tos avanzados de programación que en 
pocas líneas no podemos explicar. Es po¬ 
sible que en poco tiempo escribamos un ar¬ 
tículo sobre las posibilidades de Scroll en 
el Commodore, mientras tanto te aconsejo 
que busques información en algún libro 
que hable en profundidad de los gráficos 
con el Commodore, y sobre una base de 
conocimiento, nos plantees las dudas que 
te puedan surgir. 


P: Me he dado cuenta de que 
en muchos de los programas que 
sacais en la revista hay subrutinas 
que no son necearías. ¿Por qué se 
hacen los programas de esta for¬ 
ma, pudiendo hacerse más cortos 
con sentencias GOTO?. ¿Es para 
entenderlos mejor?. Siento mucha 
curiosidad por saber por qué pro¬ 
gramáis de esa manera. 

Jorge García 
Barcelona 

R: La manera de programar depende 
del factor al que demos primacía: Rapi¬ 
dez, Comprensión, Ahorro de memoria, 
Fiabilidad, etcétera... 

Cada día los ordenadores disponen de 
más memoria y de mayor velocidad de cál¬ 
culo. Ganando en importancia la progra¬ 
mación estructurada y de fácil compren¬ 
sión, así como la fiabilidad de los pro¬ 
gramas. 

Un programa bien construido, donde los 
errores sean fáciles de detectar, las modi¬ 
ficaciones fáciles de introducir y que para 
cualquier modificación, el trabajo requeri¬ 
do sea mínimo, este programa podemos 
decir que mantiene una programación es¬ 
tructurada y profesional. 

Llamamos programación estructurada a la 
creación de programas a base de bloques, 
donde cada bloque realiza una fundón de¬ 
terminada y usa a su vez unos bloques más 
pequeños, y así sucesivamente. Quedando 
al final un programa a base de subrutinas, 
lo más independientes y generales posi¬ 
bles, que es lo que tú puedes apreciar en 
los programas con sucesivas llamadas GO- 
SUB. 

La diferencia entre GOTO Y GOSUB es 
clara, a un GOSUB accedemos desde cual¬ 
quier punto, siempre que queramos, encar¬ 
gándose el RETURN de recordar la direc¬ 
ción de vuelta, en cambio con GOTO, 
aparte de hacerse más difícil la compren¬ 
sión del programa, sólo podemos utilizar¬ 
lo una vez, debiendo direccionar la vuelta 
con otro GOTO. 
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